Question

3. Дано целое трехзначное число А .Составить программу, которая выводит сумму цифр данного числа. Например, вводится число 423, а выводится число 9.

Answer 1

===== PascalABC.NET =====

begin

 var n := Abs(ReadInteger);

 var s := 0;

 while n > 0 do

 begin

   s += n mod 10;

   n := n div 10

 end;

 Write(s)

end.