Зацикливание, Помогите Опции

[Artem7]

Вот написал программу для нахождения 4 совершенных чисел на отрезке, но почему то когда ввожу 1000 то происходит зацикливание (возможно и в других случаях просто не проверял больше)

Program sovershenie;
Var n,i,k,j,s:longint;
Begin
    write('Введите n= ');readln(n);
    While k<>4 do
    Begin
    For i:=2 to n do
    Begin
    s:=0;
    For j:=1 to n do
    if (i mod j = 0)and(i<>j) then s:=s+j;
    if s=i then begin writeln('Совершенное число = ',i);k:=k+1;end;
    end;
    end;
    readln;
End.

[TarasBer]

> В том то и дело что мне преподаватель сказал ввести счётчик чтобы заканчивался когда 4 совершенных найдёт...

Ты его не туда поставил. У тебя сначала перебираются ВСЕ числа до эн, а потом проверяется счётчик. А надо проверять его постоянно:

For i:=2 to n do
Begin
    s:=0;
    For j:=1 to n do
      if (i mod j = 0)and(i<>j) then s:=s+j;
    if s=i then begin 
      writeln('Совершенное число = ',i);
      k:=k+1;
      if k>=4 then Break; // достигли порога - выходим из цикла
    end;
end;

[Artem7]

> В том то и дело что мне преподаватель сказал ввести счётчик чтобы заканчивался когда 4 совершенных найдёт...

Ты его не туда поставил. У тебя сначала перебираются ВСЕ числа до эн, а потом проверяется счётчик. А надо проверять его постоянно:

For i:=2 to n do
Begin
    s:=0;
    For j:=1 to n do
      if (i mod j = 0)and(i<>j) then s:=s+j;
    if s=i then begin 
      writeln('Совершенное число = ',i);
      k:=k+1;
      if k>=4 then Break; // достигли порога - выходим из цикла
    end;
end;

Спасибо но я замутил вот так

Program sovershenie;
Var n,i,k,j,s:longint;
Begin
    write('Введите n= ');readln(n);
    While k<4 do
    Begin
    For i:=2 to n do
    Begin
    s:=0;
    For j:=1 to n do
    if (i mod j = 0)and(i<>j) then s:=s+j;
    if (s=i)and(k<4) then begin writeln('Совершенное число = ',i);k:=k+1;end;
    end;
    end;
    readln;
End.