(pascal) задача с совершенными числами

[klarissa]

прошу помочь с задачкой
>>Найти совершенные числа от 2 до N. Значение N ввести с клавиатуры.

у меня получилось такое решение, но как мне говорят здесь полно ошибок ::

Program lol;
Uses crt;
K,n,h:integer;
i,j:integer;
Begin
Clrscr
Writeln (‘input n');
K:=0;
For i:=2 to n do
begin
For i:=2 to n do
K:=0 For i:=1 to n-1 do
If n mod i=0 then k=k+1; {нахождение остатка от делителя на n}
If k=n then 
Writeln (‘n-tseloe chislo’) else
Writeln (‘n-netseloe chislo’);
End;
End.

помогите плиз исправить

[puporev]

У вас сплошная путаница с циклами.
Зачем два раза
For i:=2 to n do
begin
For i:=2 to n do
Потом опять For i:=1 to n-1 do
Потом не n mod i=0, а if i mod j=0 then
Два раза к:=0;
На выходе пишите целое-не целое, когда нужно совершенное.
И почитайте что-нибудь про совершенные числа, а то у вас мало вероятно, что когда-нибудь выпадет совершенное.
Подремонтируйте программу, почитайте, результат напишите.
В крайнем случае поищите решение на форуме, эта задача решалась не один раз.

[JTG]

Вот тут была похожая задача. http://forum.xakep.ru/m_1003726/mpage_1/tm.htm

Есть одна особенность, позволяет ОЧЕНЬ ускорить поиск
110 = 6
11100 = 28
1111000 - 120 не совершенное!
111110000 - 496
11111100000 - 2016 не совершенное!
1111111000000 - 8128
...
т.е. каждое совершенное число в двоичном виде Nединиц:N-1нулей (тока не наоборот, не каждое N1:N-1 совершенное), таким образом можно проверять не все подряд числа, а только числа вида 1nnnn0mmm <= N

и ещё http://ru.wikipedia.org/wiki/Совершенное_число

[klarissa]

учитывая замечания получатся что то вроде этого:

Program lol2;   
Uses crt;   
K,n,h:integer;   
i,j:integer;   
Begin   
Clrscr   
Writeln (‘input n');   
begin  
K:=0;
For i:=2 to n do  
If i mod j=0 then k=k+1;  
If k=n then    
Writeln (‘n-soversh.') else  
Writeln (‘n-nesoversh.’);   
End;   
End.

ну даже не знаю... как то слишком просто

[puporev]

Это действительно просто, но не настолько, как у вас. У вас ведь сначала был вложенный цикл, только в нем вместоj было написано i.
Сейчас вы его выкинули и стало совсем просто, только работать не будет.
Нужно так:

program poln_chis;
uses crt;
var i,k,j:longint;
begin
clrscr;
for i:=1 to n do
   begin
    k:=0;
    for j:=1 to i-1 do
       if i mod j=0 then
          begin
            k:=k+j;
          end;
       if k=i then write(i,' ');
     end;
  readln;
end.

P.S. Я тут скопировал у вас неправильно, нужно i:=1 to и n j:=1 to n, а то программа работать не будет.

[Plague]

А вот древним грекам было известно только 4 совершенных числа.
А какое 5 совершенное число?
У меня компьютер долго его считает, терпения не хвотает у меня.

[puporev]

Пятое 33 550 336, шестое — 8 589 869 056.