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

Question

Информатика

Транквиллина

20 января, 23:40

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

+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.