Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.01.2011, 12:16   #1
rom6520
 
Регистрация: 19.01.2011
Сообщений: 6
По умолчанию Поцедура нахождения суммы цифр натурального числа на Паскале

Использовать процедуру нахождения суммы цифр натурального числа ,каждого из трех чисел больше??? как это решить кто знает прошу помочь !!!! Буду признателен вашей помощи!!!
rom6520 вне форума Ответить с цитированием
Старый 21.01.2011, 10:32   #2
Z1000000
Форумчанин
 
Регистрация: 04.05.2010
Сообщений: 495
По умолчанию

Для начала
Код:
{Сумма цифр натурального числа}
Program lab1;
var
 N,D,S : Integer;
begin
read(N);
S := 0;
while ( N > 0 ) do
 begin
 D := N mod 10;
 N := N div 10;
 S := S + D;
 end;
write ( S );
end.
Нажми на весы, поставь +
Для благодарностей : WebMoney WMR R252732729948
Z1000000 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
найти сумму цифр заданного натурального числа dima.m Microsoft Office Excel 6 06.12.2010 11:30
Составить программу нахождения всех делителей натурального числа N livestrong Помощь студентам 1 24.12.2008 20:35
Составить программу нахождения всех делителей натурального числа N livestrong Помощь студентам 3 24.12.2008 19:02
Составить программу нахождения натурального числа n livestrong Помощь студентам 14 24.12.2008 18:15
Найти произведение цифр натурального числа, больших В microlab Помощь студентам 6 23.12.2008 20:46