NНайти сумму цифр целого числа А (вводится с клавиатуры). составить программу на Паскале

1

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

2013-01-20T10:07:34+04:00

var

  n, sum : longint;

begin

  read (n);

  sum := 0;

  while n > 9 do

  begin

    sum := sum + n mod 10;

    n := n div 10;

  end;

  sum := sum + n;

  writeln (sum);

end.