Question

программирование PascalABC


Ввести целое число и найти его сумму цифр

По типу: while условие do
Переменные: I,n​

Answer 1

var n, i : integer;

begin

i := 0;

readln(n);

n := abs(n);

while n > 0 do

begin

i := i + n mod 10;

n := n div 10;

end;

writeln(i);

end.