Оператор цикла, препарируем целые числа Опции

[A.K.]

Люди помогите плизз!Вводится натуральное число N .Найти сумму цифр этого числа.Задача вроде нетрудная,но я полный ноль в паскале

Сообщение отредактировано: A.K. - 18.01.2006 20:54

[klem4]

var
   n,s : integer;
begin
   readln(n);
   s := 0;
   while(n>0) do begin
      s := s + n mod 10;
      n := n div 10;
   end;
   writeln(s);
   readln;
end.