Соберите программу на языке Паскаль. Вывести на экран сумму цифр целого числа m>0

Question

Информатика

Люда

8 апреля, 04:20

Соберите программу на языке Паскаль. Вывести на экран сумму цифр целого числа m>0

+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.