begin
var (n, s) := (ReadInteger('Введите натуральное число'), 0);
while n > 0 do
s += n mod 10;
n := n div 10
end;
if s.IsOdd then Print('Сумма цифр нечетная')
else Print('Сумма цифр четная')
end.
var a,x,sum:integer;
writeln('введите целое число');
readln( a );
x:=a;
sum:=0;
while ( x<>0 ) do
sum := sum + (x mod 10);
x := x div 10;
if sum mod 2=0 then writeln('Сумма цифр числа образует четное число')
else writeln('Сумма цифр числа образует нечетное число');
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.