Как сделать программу которая будет складывать все числа пятизначного числа

Question

Как сделать программу которая будет складывать все числа пятизначного числа

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

Вероятнее всего складывать надо цифры, а не числа var x,i,k:integer; begin readln(x); while x>0 do begin i:=x mod 10; k:=k+i; x:=x div 10; end; writeln(k); end.