IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Процедуры в Pascale, ПОМОГИТЕ!!!!
сообщение
Сообщение #1


Гость
Описать процедуру SumDigit(N,S), находящую сумму цифр S целого числа N (N — входной, S — выходной параметр). Используя эту процедуру, найти суммы цифр пяти данных чисел.
ВАЩЕ не врубаюсь, помогите пожалуйста! unsure.gif
 К началу страницы 
+ Ответить 
 
  Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Профи
****

Группа: Пользователи
Сообщений: 559
Пол: Мужской
Реальное имя: Бруно

Репутация: -  10  +

Есть число, находишь остаток от деления на 10, ложишь в сумматор, делишь нацело на 10 и так до тех пор пока не осталось число которое не делится на 10 (однозначное) его просто прибавлешь к сумматору и так с каждым числом.


--------------------
Цитата
Imagination is more important than knowledge.
Albert Einstein
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Xumuk   Процедуры в Pascale   18.03.2007 17:48
compiler   Описать процедуру SumDigit(N,S), находящую сумму …   18.03.2007 17:53
Артемий2   Воспользуйся поиском!Подобные задачи решались.   18.03.2007 17:54
Tan   Есть число, находишь остаток от деления на 10, лож…   18.03.2007 18:08
compiler   Есть число, находишь остаток от деления на 10, ло…   18.03.2007 18:22
Артемий2   Есть простое решение с множеством,но поскольку я с…   18.03.2007 18:14
-Volvo-   summ:=summ + Abs(number mod 10);, иначе получишь о…   18.03.2007 18:45
compiler   иначе получишь отрицательную сумму при переданном…   18.03.2007 18:58
Tan   Вот это объеденение всего вышеупомянутого : uses c…   18.03.2007 23:19

« Предыдущая тема · Задачи · Следующая тема »
 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

Режим отображения: Переключить на: Стандартный · Переключить на: Линейный · Древовидный

Подписка на тему · Сообщить другу · Версия для печати · Подписка на этот форум



- Текстовая версия 5.11.2025 11:28
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name