задано натуральное число N, вычислите сумму цифр числа используя цикл while

Question

Информатика

Санюха

26 июня, 06:52

задано натуральное число N, вычислите сумму цифр числа используя цикл while

+3

Ответы (1)

Знаешь ответ?

Маркеллина · Answer 1

var sum, n:int64;

begin

write ('Vvedite chislo: ');

readln (n);

while (n>0) do begin

sum:=sum + (n mod 10);

n:=n div 10;

end;

writeln (sum);

readln;

end.