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

Question

Информатика

Гремислав

1 апреля, 18:32

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

+1

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