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

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.

Люди а может ему нуно вычислить для числа большего лонгинта? тогда нуно длиную арифметику использовать!

Флуд удален, тема закрыта, за полной ее исчерпанностью.

PS Автор, в следующий раз сначала пользуйся поиском, эта и еще очень много стандартных задач не раз решались на форуме, удачи





Ну ты дал ) Тогда уж проще string использовать ))))))))))))) Еще короче решение будет )

Все, закрыто