Question

Дружественные числа – это два натуральных числа, таких, что сумма всех делителей одного числа (меньших самого этого числа) равна другому числу, и наоборот. Напишите программу, которая будет искать дружеские пары чисел до 100 000. Pascal

Answer 1

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

var
    i, s1, s2: longint;
begin
    for i := 1 to 100000 do
    begin
        s1 := sum_del(i);
        s2 := sum_del(s1);
        if (s2 = i) and (s1 < i) then
            writeln(s1, ' ', i);
    end;
end.