(для паскаля) два натуральных числа называются дружественными, если каждое из них равно сумме всех делителей другого (само другое число в качестве делителя не рассматривается). найти все пары натуральных дружественных чисел, меньших 50 000.

261

494

Посмотреть ответы 2

Ответы на вопрос:

joje1

Информатика

4,4(10 оценок)

// pascalabc.net 3.2, сборка 1379 от 21.01.2017 // внимание! если программа не работает, обновите версию! function snd(n: integer): integer; begin result: =1; for var i: =2 to n div 2 do if n mod i=0 then result+=i end; begin for var i: =1 to 50000 do for var j: =i+1 to 50000 do if (snd(i)=j) and (snd(j)=i) then print((i,j)) end. результат (220,284) (1184,1210) запускайте и ждите, если больше заняться нечем.