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

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

1

Ответы и объяснения

2013-09-18T16:57:14+04:00
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.