Абсолютно простые числа

[Nastyity]

Число называется, абсолютно простым, если при любой перестановки его цифр также образуется простое число. Найти все абсолютно простые числа из интервала от N до M. Компоненты Memo, edit, button.

[Grag]

И где же Ваши предложения по этому вопросу?

[Arigato]

Ну перебираете все числа от N до M. Для каждого из них получаете все возможные перестановки цифр, проверяете каждую из них на простоту. Не вижу, где могут возникнуть затруднения?

[Nastyity]

а как это все записать?

[Sasha_Smirnov]

Да внизу этой страницы примеров куча. Или интересен лишь готовый продукт?

[Nastyity]

ой ))) а я и не видела

[Nastyity]

там не то)))

[Serge_Bliznykov]

Надеюсь, не окажу "медвежью" услугу, опубликовав решение.

Сразу скажу, число переводится в строку, затем перебор выполняется рекурсивной процедурой переставляющий строчки.
примерно так:

var S:string;
    a1,a2 : string;

procedure ShowVariant(S0,S1 : string);
var I :byte;
begin
  if length(S1)=1 then begin WriteLn(S0+S1); Exit end;
  a1 := '';
  a2 :=  copy(S1,I+1,length(S1));
  for i:=1 to length(S1) do ShowVariant(S0+S1[i],copy(S1,1,I-1)+
                             copy(S1,I+1,length(S1)));
end;
// вызов перебора
 s := '12345';
 ShowVariant('',S);

разумеется, это только основа, в моём исходнике на Дельфи эта процедура была переработана!

[Nastyity]

спасибочки))))