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

Ответ:

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.


 

Добавить комментарий

You must have JavaScript enabled to use this form.