Предмет:
ИнформатикаАвтор:
yusufАвтор:
camden9yyxvar 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.
Автор:
valentina80begin
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Сумма цифр четнаяАвтор:
cameronДобавить свой ответ
Предмет:
Русский языкАвтор:
kierraОтветов:
Смотреть
Предмет:
Русский языкАвтор:
psychoОтветов:
Смотреть
Предмет:
ХимияАвтор:
ashesbakerОтветов:
Смотреть