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

Question

Информатика

Подабон

31 декабря, 02:57

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

+5

Ответы (1)

Знаете ответ на вопрос?

Акрама · 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.