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

Question

Информатика

Киря

28 сентября, 14:25

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

+4

Ответы (1)

Знаешь ответ?

Сережа · Answer 1

Вероятнее всего складывать надо цифры, а не числа

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.