Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| нахождение полных чисел, написание программы |
| -Artur- |
Сообщение
#1
|
|
Гость  |
Доброго времени суток !
Срочно нужна помощь. Задача: Полные числа - это такие числа которые равны всем своим делителям (за исключением самого себя). Пример: 6=3+2+1 (6 делится на 3, 2 и 1). Найти все полные числа от 1 до 10000. Ответы даны: 6, 28, 496, 8128. Не имею представления как написать такую программу в паскале, что бы она нашла эти числа. Помогите пожалуйста, буду очень благодарен. Заранее спасибо !  |
 
|
|
  |
| Michael_Rybak |
Сообщение
#2
|
|
Michael_Rybak  Группа: Пользователи Сообщений: 1 046 Пол: Мужской Реальное имя: Michael_Rybak Репутация:  32  |
прочитай хоть что-нибудь сам по паскалю. про структуру программы вообще, про арифметические операции, про if-then-else, for-do и writeln. и сам напиши комментарии.
|
   |
|
-Artur- нахождение полных чисел 9.12.2007 6:23
volvo Вообще-то эти числа называются "Совершенные… 9.12.2007 6:26 -Artur- Спасибо volvo, очень помогло.
использовал эту прог… 9.12.2007 6:56 -Artur- Извеняюсь, добавление в конце readln; помогло.
отс… 9.12.2007 7:06 -Artur- да согласен, прочитать мне не помешает, но на это … 9.12.2007 7:28 Michael_Rybak Что такое "I,N,Summa: LongInt;" ты узнае… 9.12.2007 7:38
-Artur- Спасибо :) 9.12.2007 7:40 |
|
Текстовая версия | 23.04.2024 21:00 |
