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

[Rom1k]

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

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

[volvo]

Если на "сделать чтоб работало" - то вот так:

uses crt;

function sum(i: longint): longint;
var j, s: longint;
begin
      s := 0;
      for j := 1 to i div 2 do begin
         if i mod j = 0 then begin
            s := s + j;
         end;
      end;
      sum := s;
end;

var
   i, j: longint;
begin
   for i := 200 to 300  do begin
     for j := i to 300 do begin
       if (sum(i) = j) and (sum(j) = i) then
         writeln(i, ' and ', j);
     end;
   end;
   readln
end.

, но это очень неэффективное решение, скажем, даже не пытайся найти все "дружественные пары" в интервале 1 .. 100000 таким вот кодом, результатов будешь ждать очень долго... Существует гораздо более быстрый метод...

[Rom1k]

спасибо. но мне только в интервале от 200 до 300 надо.