Question

!!!Напишите, пожалуйста, программу на языке Pascal ABC!!!
Проверить является ли пара целых положительных чисел дружественными . Два различных натуральных числа являются дружественными, если сумма всех делителей первого числа (кроме самого числа) равна второму числу. Например, 220 и 284, 1184 и 1210, 2620 и 2924, 5020 и 5564.

Answer 1

var a,b:integer;

function sum(x:integer):integer;

var s,i:integer;

begin

s:=1;

for i:=2 to x div 2 do

if x mod i=0 then s:=s+i;

sum:=s;

end;

begin

readln(a,b);

if (sum(a)=b)and(sum(b)=a)

then writeln('Введенные числа являются дружественными')

else writeln('Введенные числа не являются дружественными');

end.

Пример:

5020 5564

Введенные числа являются дружественными