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

Question

Информатика

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

2 октября, 13:44

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

+2

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