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

Question

Информатика

Оксана

17 августа, 05:15

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

+2

Ответы (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.