 нахождение полных чисел, написание программы |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| -Artur- |
 9.12.2007 2:23
Сообщение
#1
|
|
Гость  |
Доброго времени суток !
Срочно нужна помощь. Задача: Полные числа - это такие числа которые равны всем своим делителям (за исключением самого себя). Пример: 6=3+2+1 (6 делится на 3, 2 и 1). Найти все полные числа от 1 до 10000. Ответы даны: 6, 28, 496, 8128. Не имею представления как написать такую программу в паскале, что бы она нашла эти числа. Помогите пожалуйста, буду очень благодарен. Заранее спасибо !  |
 
|
|
  |
Ответов
| Michael_Rybak |
9.12.2007 3:38
Сообщение
#2
|
|
Michael_Rybak  Группа: Модераторы Сообщений: 1 046 Пол: Мужской Реальное имя: Michael_Rybak Репутация:  32  |
Что такое "I,N,Summa: LongInt;" ты узнаешь, потратив 5 полезных минут на ознакомление со структурой программ на паскале. Так и напиши в гугле - "паскаль. структура программы".
Что такое for ты узнаешь, ознакомившись с конструкцией for-do. Что такое div ты узнаешь, ознакомившись с арифметическими операциями. If Int(Sqrt(I)) = Sqrt(I) - эта строчка означает - "Если I является полным квадратом, то...". Более конкретно - Sqrt(I) вычисляет квадратный корень из I. Int(Sqrt(I)) берет от квадратного корня целую часть. Таким образом, вся строка означает дословно - "Если целая часть квадратного корня из I равна квадратному корню из I, то ...". Другими словами, "Если квадратный корень из I - целое число, то...". До понедельника времени - море. Удачи. |
   |
|
Сообщений в этой теме
-Artur- нахождение полных чисел 9.12.2007 2:23
volvo Вообще-то эти числа называются "Совершенные... 9.12.2007 2:26 -Artur- Спасибо volvo, очень помогло.
использовал эту прог... 9.12.2007 2:56 -Artur- Извеняюсь, добавление в конце readln; помогло.
отс... 9.12.2007 3:06 Michael_Rybak прочитай хоть что-нибудь сам по паскалю. про струк... 9.12.2007 3:17 -Artur- да согласен, прочитать мне не помешает, но на это ... 9.12.2007 3:28
-Artur- Спасибо :) 9.12.2007 3:40 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 20.07.2025 14:17 |