вот условие
На заданном числовом промежутке требуется найти все дружелюбные числа, то есть числа, для каждого из которых сумма собственных делителей одного числа равна второму.
ответ :
function sum_del(n:integer):integer;
var i, res : integer;
begin
res := 1;
for i := 2 to n-1 do
if n mod i = 0 then
res := res + i;
sum_del := res;
end;
var N, i, j : integer;
begin
WriteLn('Enter N, please:');
ReadLn(N);
for i := 1 to N-1 do
for j := i+1 to N do
if (sum_del(i) = j)and(sum_del(j)=i)and(j>i) then
WriteLn(i,' ',j);
ReadLn;
end.
[ссылка заблокирована по решению администрации проекта]
⇢