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

Question

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

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.