[tolmachik]

Пожалуйста! Очень нужен код для задачки:
Найти в интервале от a-b простые числа, разность между которыми равна введенному числу(например 2)
Результат должен иметь вид:

3-5
5-7
7-9
9-11
и т.д.

[NIch]

В твоем диапазоне проверяешь все числа на простое...

Код:

  n: integer; // проверяемое число
  d: integer; // делитель
  r: integer; // остаток от деления n на d
begin
  n := StrToInt(Edit1.text);
  d := 2; // сначала будем делить на два
  repeat
    r := n mod d;
    if r <> 0 {// n не разделилось нацело на d} then
      d := d + 1;
  until r = 0; // повторять пока не найдено число на n делится без остатка
  label2.caption := Edit1.text;
  if d = n then
    label2.caption := label2.caption + ' - простое число.'
  else
    label2.caption := label2.caption + ' - обычное число.';

Далее загоняешь все простые числа в массив...
Потом по очереди начиная с первого элемента вычитаешь из него остальные...если разность введенное число, то добавляешь пару в новый двумерный массив...
Подумай, сделай наброски и приходи еще раз)))

[tolmachik]

ох.Спасибо большое ,из всего понятно только слово массив...
Попробую