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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted 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.