Дано натуральное число N. Вычислить сумму цифр этого числа.
Дано натуральное число 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.
Не нашли ответ?
Похожие вопросы