дружественные числа |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
дружественные числа |
Rom1k |
Сообщение
#1
|
Пионер Группа: Пользователи Сообщений: 119 Пол: Мужской Репутация: 0 |
два натуральных числа называют дружественными,если каждое из них равно сумме всех делителей другого, кроме самого этого числа.
найти все пары дружественных чисел,лежащих в диапазоне от 200 до 300 помогите пожалуйста.даже догадок нет( |
volvo |
Сообщение
#2
|
Гость |
1) ну и чем твое решение лучше приведенных выше?
2) Турбо-Паскаль, стандартные установки, ничего не меняешь - твоя программа НЕ компилируется. Цитата кому интересно - оставляйте заявки - покажу С учетом вышесказанного - уже неинтересно.Цитата Лично мне удалось значительно улучшить алгоритм в итоге (в 5,5 раз) Угу. Только ты сначала выложил явно специально замедленный алгоритм, а потом будешь его ускорять, да? Смотри:var counter: longint; { <--- делаем раз }И запускаем. Что видим? 45 iteration(s)... Хорошо... А теперь: if j mod 2 = 0 then x:=drug(j) else x := drug1(j); { <--- делаем шесть }, и запускаем снова: 23 iteration(s). Интересно, правда? А ведь каждая итерация - это вычисление функций... А ты даже это не соизволил проверить... |
Текстовая версия | 29.04.2024 22:30 |