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

Question

Информатика

Велизар

16 апреля, 23:02

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

+3

Ответы (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.