Показать сообщение отдельно
  #2  
Старый 22.01.2009, 18:11
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,087
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну так и делай.
Напиши процку, которая проверяет, является ли число, переданное ей, совершенным. Для этого можно воспользоваться функцией mod (остаток от деления, если = 0, то число является делителем). Просто в цикде от 1 до N-1 если делитель, то складываешь.

Ну и внешняя процка - просто перебор от 2 до 500 с вызовом этой функции.
Ответить с цитированием