Задание:
Дано натуральное число N. Вычислить сумму цифр этого числа.
Решение:
var n,s: integer; Begin read (n); while n>0 do begin s: =s+n mod 10; n: =n div 10; end; writeln (s); End.
Знаете другой ответ?
Дано натуральное число N. Вычислить сумму цифр этого числа.
var n,s: integer; Begin read (n); while n>0 do begin s: =s+n mod 10; n: =n div 10; end; writeln (s); End.
Знаете другой ответ?