Олимпиадная задача. Выигрышные сертификаты (выиграли номера, явлющиеся простыми числами и номера, не содержащие повторящихся цифр)

[LancerRiker]

нужно решить задачу. не могу решить уже 3ий день. пытаюсь но ничего не получается :с

[min@y™]

не могу решить уже 3ий день. пытаюсь но ничего не получается

ПАЦИЕНТ ВРЁТ!

Перефразирую задание. Родить 2 функции:

1. проверка числа на простоту (исходников в интернетах чуть меньше, чем дох...я);
2. проверка факта того, что все символы строки разные (либо все цифры числа разные).

После осмысления задача перестаёт быть теоремой ферма и становится ерундой для детского сада.

вотЪ функция для п.2 (написал за 2 минуты на заборе):

function diffdigits(x: longword): boolean;
var
  digs: set of char;
begin
  digs:= [0..9];
  diffdigits:= false;
  
  while x <> 0 do
    begin
      if (x mod 10) in digs
        then exclude(digs, x mod 10)
        else exit;
        
      x:= x div 10;
    end;
  
  diffdigits:= true;
end;

ахтунг! не отлаживалЪ.

[Serge_Bliznykov]

LancerRiker, я исправил название темы.
Но только из уважения к ответившему Вам форумчанину.
Если бы не было ответа, Ваша тема отправилась в корзину.

И ещё. Неужели за три дня, которое Вы якобы решали задачу, трудно было бы хотя бы набрать текст задания (если уж скопировать его в виде текста неоткуда было) ?!Выкладывать текст в виде картинки - не комильфо!

[LancerRiker]

я могу скинуть свой пример раз не верите

[min@y™]

Сообщение от LancerRiker

я могу скинуть свой пример раз не верите

преподу !