Question

Сотравьте пожалуйста к этому условие задачи.

Var n,s:integer; begin write('vvedite n:'); readin(n); s:=0; repeat s:=s+n mod 10; n:=n div 10; until n=0; write ('otvet: s=',s); end.

Answer 1

Найдите сумму цифр натурального числа.