Дружественная тройка чисел Опции

[Zac]

Привет, мноого времени уже ломаю голову над задачей, мне хотя бы алгоритм решения...

Задача Диксона. Будем говорить, что три натуральных числа образуют дружественную тройку, если сумма собственных делителей каждого числа равна сумме двух других чисел. Отыскать хотя бы одну дружественную тройку натуральных чисел.

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

[Zac]

НУ вот сделал.. сделал специально вывод промежуточный чисел а б с .. сижу с запущеной программой минуту число а ткоа до 160ого поменялось, В и С меняются на разные числа.... может не правильно поправляйте.. Сори , еще раз запустил, изменив тип данных - на Интеджер вместо лОнгИнт... так быстрее перебирает А

Uses CRT;
var b,c,d3,d1,d2,j,i,a:Integer;
    flag1:boolean;
begin
  CLRSCR;
  writeln('Ќ е®¦¤Ґ­ЁҐ ¤а㦥б⢥­­®© ва®©ЄЁ');
  flag1:=false;

  a:=2;
  b:=2;
  d1:=0; d2:=0; d3:=0;
  Repeat
     a:=a+1;
     for i:=1 to a-1 do
       if (a mod i)=0 then d1:=d1+i;
       For b:=a to d1 do  
         begin
            for j:=1 to b-1 do
             if ((b mod j)=0) then d2:=d2+j;
            c:=d1-b; 
            for i:=1 to c-1 do
              if (c mod i)=0 then d3:=d3+i;
            writeln(a,' ',b,' ',c);
            if (d1=b+c) and (d2=a+c) and (d3=a+b) then 
               begin 
                 writeln(a,' ',b,' ',c); 
                 flag1:=true;
               end;
          end;
   Until flag1=true;
  readln;
  end.

Сообщение отредактировано: Zac - 11.12.2007 22:06

[Malice]

НУ вот сделал..

В твоей программе d1,d2 и d3 обнуляются 1 раз в начале программы, а надо каждый раз перед подсчетом. Это первое что в глаза бросается. Плюс можно сделать так, что числы были разными, иначе у тебя найдется первая тройка из 120-ток.
ps зарание ничего считать не надо, цифры почти не повторяются, т.к. перебор не полный..

Сообщение отредактировано: Malice - 12.12.2007 0:16