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

Question

Информатика

Станислава

7 июля, 21:39

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

+4

Ответы (1)

Знаете ответ на вопрос?

Евгеньюшка · Answer 1

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.