Сотравьте к этому условие задачи. Var n,s:integer; begin write( vvedite n: ); readin(n); s:=0; repeat s:=s+n mod 10;

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.

MadamHlebushek11 · Answer

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

Сотравьте к этому условие задачи. 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.

Популярные вопросы