[sevxz7]

числа близнецы это пара простых чисел, отличающихся на 2 или

число a = сумме делителей b без самого b
и
число b = сумме делителей a без самого а

нужна программа выдающая пары чисел-близнецов от 2 до 1000 , у кого есть идеи подскажите пожалуйста

[lmikle]

пишем проверку на то, что числа есть близнецы.
Далее эту проверку запускаем в цикле.

Что-то типа:

Код:

function IsNumbersIsSiblings(A, B : Integer) : Boolean;
begin
  // тут сам реализуешь
end;

var
  I, J : Integer;
begin
  For I := 2 To 999 Do
    For J := I + 1 To 1000 Do
       If IsNumbersIsSiblings(I,J) Then
          // здесь надо куда-то вывести, например, на консоль:
          WriteLn(I,' и ',J);
end;