Задача на Pascal'e

[Scorp1on]

Я новичок в програмировании.

Задание такое: узнать суму цыфер числа N. Как?

[elsp]

Просто выделяешь каждую цифру в числе посредством mod & div и складываешь

[Kuzmich]

Или преобразовываешь в строку и считаешь сумму цифр как элементов массива, преобразованных обратно из символа в цифру (проще определить колличество цифр, по крайней мере по-моему)...

Преобразование числа в строку - функция str, символа в число - val...

[Stolik]

Scorp1on

А откуда берем число? Если вводим с клавы - то читаем "поразрядно" в массив типа word до нажатия Enter (к примеру), а потом просто складываем. Если читаем из файла - то тоже "поразрядно" в массив, только типа char, потом переводим в числовой формат и складываем.

[Тролль]

Scorp1on:

Тут же наверху в этом же разделе постоянная тема с красной пометкой "Важно": "Заказы "Сделайте все за меня", А вдруг прокатит?". Там как раз все такие вопросы.

По самому вопросу - вот один из вариантов:

program SumOfDigits;

var

I,K,S:Integer; N:Longint;

begin

ReadLn(N);

N:=Abs(N);

S:=0;

for I:=1 to 10 do

begin

K:=N-(N div 10)*10; S:=S+K; N:=N div 10;

end;

WriteLn(S);

end.

Работает для целых чисел до 2 миллиардов.

P.S. Кстати, можно по совету Stolik'а немного упростить: вместо оператора K:=N-(N div 10)*10; написать короче K:=N mod 10;

Я об операции получения остатка как-то забыл .

Изменено 5 ноября, 2005 пользователем Тролль

[Scorp1on]

Спасибо всем кто помог!