Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| дружественные числа |
| Rom1k |
Сообщение
#1
|
 Пионер  Группа: Пользователи Сообщений: 119 Пол: Мужской Репутация:  0   |
два натуральных числа называют дружественными,если каждое из них равно сумме всех делителей другого, кроме самого этого числа.
найти все пары дружественных чисел,лежащих в диапазоне от 200 до 300 помогите пожалуйста.даже догадок нет( |
   |
 
|
Rom1k дружественные числа 21.03.2008 21:24
volvo Все пары - это очень громко сказано... В заданном … 21.03.2008 21:40 мисс_граффити в поиск...
вот, например:
Дружественные числа 22.03.2008 1:25 Rom1k uses crt;
var
count,i,j,s : word;
begin
coun… 23.03.2008 16:56 Rom1k кто-нибудь может подсказать? 24.03.2008 21:56 volvo Если на "сделать чтоб работало" - то вот… 24.03.2008 22:28
Rom1k
спасибо. но мне только в интервале от 200 до 30… 24.03.2008 22:56 AlexZerg Вот достаточно оптимальный алгоритм полного перебо… 10.11.2009 19:37 volvo 1) ну и чем твое решение лучше приведенных выше?
2… 10.11.2009 19:59 shemetec23 var
x: integer;
function SumDev(i: integer): lo… 22.03.2017 4:22  |
|
Текстовая версия | 22.12.2025 3:05 |
