вывод совершенных числе в Pascal

[otlichniza]

Здравствуйте всем! Помогите, пожалуйста, написать программу, которая бы выводила на экран первые четыре совершенных числа (совершенные числа - числа, сумма делителей которых, кроме самого числа, равна этому числу. Примером простого числа является число 6 - оно делится на 1, 2, 3. при сложении получаем шесть) Эта программка нужна, чтобы получить зачет беременной одногруппнице. Надеюсь на вашу помощь!

[LeBron]

Сообщение от otlichniza

Здравствуйте всем! Помогите, пожалуйста, написать программу, которая бы выводила на экран первые четыре совершенных числа (совершенные числа - числа, сумма делителей которых, кроме самого числа, равна этому числу. Примером простого числа является число 6 - оно делится на 1, 2, 3. при сложении получаем шесть) Эта программка нужна, чтобы получить зачет беременной одногруппнице. Надеюсь на вашу помощь!

Первые 4 совершенных числа - 6, 28, 496, 8128.
Напишите тупой перебор, суть такая:

s=0;
for i:=1 to n-1 do if n mod i=0 then inc(s,i);
if s=n then writeln(n);

Поскольку не указан ни язык программирования, ни пример собственных наработок, то дальше сами, основу решения я Вам дал.
А вообще эту задачу надо решать с использованием признака Эвклида-Мерсенна.

[Lemo]

На мой взгляд сдесь ошибка, давай пройдемся поэтапно:
предположим n=10, тогда s в итоге будет равняться 3, так как n делиться на 1,2,5, и если 3=10 (s=n) то результат = 10 (n); Хотя перебирая числа от 1 до 10, уже должна была быть 6...

[LeBron]

Сообщение от Lemo

На мой взгляд сдесь ошибка, давай пройдемся поэтапно:
предположим n=10, тогда s в итоге будет равняться 3, так как n делиться на 1,2,5, и если 3=10 (s=n) то результат = 10 (n); Хотя перебирая числа от 1 до 10, уже должна была быть 6...

Да, сейчас допишу те 2 буквы, которые пропустил.