Как сделать программу которая будет складывать - вопрос №459671 от otegenovaaina2 26.07.2020 21:41

Question

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

otegenovaaina2 · 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.