Question

Написать программу в Free Pascal:

Дано целое число неизвестной размерности. Найти сумму цифр его составляющих.

 

 

Answer 1

var n,sum:integer;
begin
  sum:=0;
  write ('N = ');
  readln (n);
  while n <> 0 do
    begin
      sum:=sum+n mod 10;
      n:=n div 10;
    end;
  writeln ('Summa: ',sum);
end.