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

[A.K.]

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

Сообщение отредактировано: A.K. - 19.01.2006 0: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.

[arhimag]

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

[klem4]

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

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

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

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

Все, закрыто