СРОЧНО ПОМОГИТЕ ПОЖАЛУЙСТА!
Определить , образует ли сумма цифр натурального числа нечетное число.
Ответы на вопрос
Ответил Аноним
0
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.
Ответил Илья2789
0
Спасибо тебе большое , спас. Пожалуйста напиши как тебя зовут , в вк найду , на коммерческой основе поработаем. Еще раз спасибо.
Ответил Аноним
0
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
Сумма цифр четная
Новые вопросы