Ребят, кто может написать задачу ?! хелп ми (

[MaxFreeZz]

Препод дал отработать пропуски, не успеваю всё, кто может помочь напишите плзз..
вот задача>>

Получить все N-значные натуральные числа, в записи которых нет одинаковых цифр

вот мыло freezzclub@mail.ru

[NetSpace]

вариант сырой, нуждается в небольшой доработке

program Natural;
uses crt,math;
var N,i,j,ps1,ps2: Integer;
     str:string;
begin
   clrscr;
   WriteLn('N=');
   ReadLn(N); 
   for i:=1 to 10^(N+1)-1 do
   begin
        for j:=0 to 9 do
        begin
            str:=IntToStr(i);
            ps1:=Pos(IntToStr(j),str);//находим первое вхождение этой цифры в число
            if(ps1<>0)then//если эта цифра есть в записи числа
            begin
               Delete(str,ps1,1)//удаляем эту цифру
               ps2:=Pos(IntToStr(j),str);//ищем второе вхождение этой цифры
               if(ps2=0)then WriteLn(i);//если второй такой цифры нет, то выводим на экран
               if(ps2<>0)then exit;//если вторая такая цифра есть, то выходим и идём смотреть следующее число
            end;
        end;
   end;
end;

[5naip]

вот что я наваял...
в едит вводите коичество знаков в числе. Стабильно работает до 9.
и жмакаете баттон.
про защиту от дурака можно даже не заикаться

[MaxFreeZz]

Нужна числа проверять из диапозона а не только 1 конкретно заданное число, спасиб что пытаетесь вместе со мной.

[5naip]

ну это понятно.
я в своей проге так и сделал же...
или я совсем ичего не понял по заданию?

[MaxFreeZz]

всё работает, разобрался, спасиб большое !