Напишите программу на паскале определения суммы - вопрос №548099 от AmAss 18.09.2020 09:42

Question

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

AmAss · 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.