Напишите программу на паскале определения суммы - вопрос №547874 от 0000101038473626261 05.01.2020 11:03

Question

Информатика: Напишите программу на паскале определения суммы цифр числа. укажите является ли полученный результат четным числом.

0000101038473626261 · Answer

var

a, c : integer;

begin

read (a);

c := 0;

while a > 0 do

begin

c := c + a mod 10;

a := a div 10;

end;

writeln (c);

if c mod 2 = 0 then write ('Четное') else write ('Нечетное');

end.