Question

Срочно! введено число n, найдите сумму цифр числа

например,пишешь 361, и он должен сложить 3+6+1
решить с циклом while do

Answer 1

program raf105;

var

 n,sum: integer;

begin

 write('Введите число: ');

 readln(n);

 abs(n);

 repeat

   sum:= sum + n mod 10;

   n:= n div 10

 until n = 0;

 writeln('Сумма цифр: ',sum);

end.

PascalABC