Найти сумму цифр целого положительного числа

Question

Информатика

Артамонка

7 января, 00:57

Найти сумму цифр целого положительного числа

+5

Ответы (1)

Знаете ответ на вопрос?

Кузьмич · Answer 1

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.