дружественные числа Опции

[Rom1k]

два натуральных числа называют дружественными,если каждое из них равно сумме всех делителей другого, кроме самого этого числа.
найти все пары дружественных чисел,лежащих в диапазоне от 200 до 300

помогите пожалуйста.даже догадок нет(

[volvo]

1) ну и чем твое решение лучше приведенных выше?
2) Турбо-Паскаль, стандартные установки, ничего не меняешь - твоя программа НЕ компилируется.

кому интересно - оставляйте заявки - покажу

С учетом вышесказанного - уже неинтересно.

Лично мне удалось значительно улучшить алгоритм в итоге (в 5,5 раз)

Угу. Только ты сначала выложил явно специально замедленный алгоритм, а потом будешь его ускорять, да? Смотри:

var counter: longint; { <--- делаем раз }
Begin
  counter := 0; x := 0; { <--- делаем два }
  WriteLn('Пары дружественных чисел: ');
  j:=201; { <--- делаем три } l:=300;
  While j<=l do
  begin
    if j mod 2 = 0 then x:=drug(j) else drug1(j);
    if j<x then 
    Begin
      inc(counter); { <--- делаем четыре }
      if x mod 2 = 0 then xx:=drug(x) else xx:=drug1(x);
      if j=xx then Write('{',j,',',x,'} ');
    end;
    inc(j);
  end;
  writeln(counter, ' iteration(s)... '); { <--- делаем пять }
End.

И запускаем. Что видим? 45 iteration(s)... Хорошо... А теперь:

    if j mod 2 = 0 then x:=drug(j) else x := drug1(j); { <--- делаем шесть }

, и запускаем снова: 23 iteration(s). Интересно, правда? А ведь каждая итерация - это вычисление функций... А ты даже это не соизволил проверить...