Вывод "Дружественных" чисел (Pascal 7.1)

[Forgotthen]

Два натуральных числа называются "дружественными", если каждое из них равно сумме всех делителей другого, за исключением его самого (таковы, например, числа 220 и 284). Напечатать все пары "дружественных" чисел, не превосходящих заданного натурального числа

[Arigato]

Вы не указали, до какого именно натурального числа вам надо напечатать такие числа. Но вот вам дружественные числа до 65535:

1, 1
6, 6
28, 28
220, 284
496, 496
1184, 1210
2620, 2924
5020, 5564
6232, 6368
8128, 8128
10744, 10856
12285, 14595
17296, 18416

[Forgotthen]

Напечатать все пары "дружественных" чисел, не превосходящих заданного натурального числа Вот до какова

[Forgotthen]

нужно чтобы при вводе какова либо числа выводились все пары "дружественных" чисел не больше заданого числа

[Mad_Cat]

function sum_del(n:integer):integer;
var i, res : integer;
begin
  res := 1;
  for i := 2 to n-1 do
    if n mod i = 0 then
      res := res + i;
  sum_del := res;
end;
var N, i, j : integer;
begin
  WriteLn('Enter N, please:');
  ReadLn(N);
  for i := 1 to N-1 do
    for j := i+1 to N do
        if (sum_del(i) = j)and(sum_del(j)=i)and(j>i) then
          WriteLn(i,' ',j);
  ReadLn;
end.

[Arigato]

Mad_Cat, что-то очень не оптимально. Попробуйте для миллиона запустить...

Более рациональный вариант:

var i, n, Sum, T, Num: Integer;

function DivsSum (a: Integer): Integer;
var Res, i, Neg: Integer;
begin
  Res := 1;
  for i := 2 to Trunc (Sqrt (a)) do
  begin
    if a mod i = 0 then
    begin
      Inc (Res, i);
      Neg := a div i;
      if Neg <> i then Inc (Res, Neg);
    end; {if}
  end; {for}
  Result := Res;
end;

function DivsSumLim (a, Lim: Integer): Integer;
var Res, i, Neg: Integer;
begin
  Res := 1;
  for i := 2 to Trunc (Sqrt (a)) do
  begin
    if a mod i = 0 then
    begin
      Inc (Res, i);
      Neg := a div i;
      if Neg <> i then Inc (Res, Neg);
      if Res > Lim then Break;
    end; {if}
  end; {for}
  Result := Res;
end;

begin
  T := GetTickCount;
  n := 1000000;
  Num := 1;
  for i := 1 to n do
  begin
    Sum := DivsSum (i);
    if (Sum >= i) and (Sum <= n) and (i = DivsSumLim (Sum, i)) then
    begin
      WriteLn (Num, '. ', i, ', ', Sum);
      Inc (Num);
    end; {if}
  end; {for}
  WriteLn ('T = ', IntToStr (GetTickCount - T));
  ReadLn;
end.

У меня до миллиона за 2 с небольшим секунды делает. Еще он тут время работы подсчитывает. Кстати, можно еще оптимизировать, если делители в массив вынести, но уже лень...

P.S. Только это на Делфи. На Паскаль сами переделывайте, суть главное понятна должна быть из решения.

[Mad_Cat]

Mad_Cat, что-то очень не оптимально.

А никто и не просил оптимально)
просили вот

нужно чтобы при вводе какова либо числа выводились все пары "дружественных" чисел не больше заданого числа

программа это делает? - делает! оптимизация На ТС
у вас тоже косячок

1. 1, 1
2. 6, 6
3. 28, 28
....
5. 496, 496
..
10. 8128, 8128

числа разными должны быть наверное)
дружественные числа

[Arigato]

Я к тому, что просто не люблю лобовые решения. А если ее на Турбо Паскаль запустить и ввести 30000, как быстро она отработает? Мой вариант за 15 миллисекунд, т.е. мгновенно.

[Mad_Cat]

Лучше медленно - но верно, чем быстро и не точно)

[Arigato]

Лучше верно и быстро

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

числа разными должны быть наверное)

В условии ТС не сказано, что числа должны быть различными.