Предмет: Информатика,
автор: 1234321
Дано натуральное число N. Вычислить сумму цифр этого числа.
Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: Английский язык,
автор: kataaroshik415
Предмет: Русский язык,
автор: gulimka08
Предмет: История,
автор: kiraaaaaadmtrva
Предмет: Математика,
автор: GLORIA12
Предмет: Математика,
автор: leks01