Определить , образует ли сумма цифр натурального числа нечетное число.

PascalABC.NET 3.4.2, сборка 1859 от 08.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var (n, s) := (ReadInteger('Введите натуральное число'), 0);

 while n > 0 do

 begin

   s += n mod 10;

   n := n div 10

 end;

 if s.IsOdd then Print('Сумма цифр нечетная')

 else Print('Сумма цифр четная')

end.

Введите натуральное число 3563423Сумма цифр четная

var a,x,sum:integer;

begin

 writeln('введите целое число');

 readln( a );  

 x:=a;

 sum:=0;

 while ( x<>0 ) do  

 begin

   sum := sum + (x mod 10);

   x := x div 10;

 end;

 

 if sum mod 2=0 then writeln('Сумма цифр числа образует четное число')

 else writeln('Сумма цифр числа образует нечетное число');

end.