задано натуральное число N , вычислите сумму цифр числа используя цикл while

1

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

Лучший Ответ!
2013-04-07T12:58:18+00:00

var sum,n:int64;
begin
  write('Vvedite chislo: ');
  readln(n);
   while(n>0) do begin
    sum:=sum+(n mod 10);
    n:=n div 10;
   end;
  writeln(sum);
  readln;
end.