Найти все пары натуральных дружественных чисел, меньших заданного

@Oneill · Регистрация: 30.11.2011

Привет, помогите с задачкой.

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

Задачка сложная, но кто умный догадается как делать..
заранее спасибо!

@Dani · 18.06.2012, 12:11

Pascal

var n,s1,s2,i,j: longint;
 
 
function SumDel (n: longint): longint;
var i,sum,q: longint;
begin
sum:= 1;
q:= trunc(sqrt(n));
if q*q=n then
 begin
  sum:= q+1;
  dec (q);
 end;
 
 for i:= 2 to q do
  if n mod i = 0 then
   inc (sum, i+n div i);
   
SumDel:= sum;
end;
 
 
begin
 
for i:= 2 to 50000 do
 begin
  s1:= SumDel (i); s2:= SumDel (s1);
  if (i=s2) and (i<s1) then
   writeln (i, ' ',s1);
 end;
 
end.

Если нужна скорость для программы, то нужно, чтобы программа одна вычислила все числа, а потом забить их в константу.

@Oneill 5 / 5 / 1 Регистрация: 30.11.2011 Сообщений: 238 Записей в блоге: 1
		1
	Найти все пары натуральных дружественных чисел, меньших заданного 18.06.2012, 10:48. Показов 2657. Ответов 1 Метки нет (Все метки) Привет, помогите с задачкой. Два натуральных числа называются дружественными, если каждое из них равно сумме всех делителей другого (Само другое число в качестве делителя не рассматривается). Найти все пары натуральных дружественных чисел, меньших 50,000. Задачка сложная, но кто умный догадается как делать.. заранее спасибо! __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Найти все пары натуральных дружественных чисел, меньших заданного

Решение