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

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку