Найти сумму цифр целого положительного числа
Найти сумму цифр целого положительного числа
Гость
Ответ(ы) на вопрос:
Гостьbegin
write('Введите целое положительное число m: ');
var m := ReadInteger;
assert(m > 0);
var s := 0;
while m > 0 do
begin
s += m mod 10;
m := m div 10;
end;
writeln('Сумма цифр числа m равна ', s);
end.
Не нашли ответ?
Похожие вопросы