Напишите, , программу на языке pascal ! проверить является ли пара целых положительных чисел дружественными . два различных натуральных числа являются дружественными, если сумма всех делителей первого числа (кроме самого числа) равна второму числу. например, 220 и 284, 1184 и 1210, 2620 и 2924, 5020 и 5564.
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
Введенные числа являются дружественными