Найти сумму чисел четырехзначного числа(решить с - вопрос №2477223 от ГорголаІлля 31.07.2020 03:48

Question

Информатика: Найти сумму чисел четырехзначного числа(решить с циклом пост условия)!

ГорголаІлля · Answer

Var a,s:integer;beginreadln (a);repeat s:=s+a mod 10;a:=a div 10;until a=0;writeln (s);end....