!!!Напишите, пожалуйста, программку на языке Pascal ABC!!!Проверить является ли пара целых
!!!Напишите, пожалуйста, программку на языке Pascal ABC!!!
Проверить является ли пара целых положительных чисел дружественными . Два разных естественных числа являются дружественными, если сумма всех делителей первого числа (не считая самого числа) равна второму числу. К примеру, 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
Введенные числа являются дружественными
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.