Напечатать все натуральные числа. МНОЖЕСТВА )))

[Viwwna]

Напечатать все натуральные числа от 10 до 32767, в десятич-ной записи которых нет одинаковых цифр.
Указание: решение задачи простое, если вы будете использо-вать множества. Необходимо для каждого числа создавать множество, состоящее из цифр числа. При этом проверять: если очередная цифра числа есть уже во множестве, то такое число не надо выводить на экран.


Предложите пожалуйста варианты решения.... ((( СПАСИБО ЗАРАНЕЕ

[IT-man]

var i,k:integer;
ch:set of byte;
f:boolean;
begin
for i:=10 to 32767 do
begin
f:=true;ch:=[];k:=i;
while (f) and (k>0) do
if  not((k mod 10) in ch) then begin ch:=ch+[k mod 10];k:=k div 10;end
else f:=false;
if f then write(i,' ');
end;
readln;
end.

[Viwwna]

uses crt;
var i,j,k,c,p:integer;
    m:set of byte;
begin
clrscr;
writeln('Числа, в которых нет повторяющихся цифр:');
p:=0;
for i:=10 to 32767 do
 begin
  j:=i;
  m:=[];
  k:=0;
  while j>0 do
   begin
    c:=j mod 10;
    if not(c in m) then include(m,c)
    else k:=k+1;
    j:=j div 10;
   end;
  if k=0 then
   begin
    p:=p+1;
    write(i:8);
    if p mod 200=0 then readkey
   end
 end;
readln
end.

ЭТО СИЛЬНО НАКРУЧЕНО, да? Ваш вариант более лучше? (я имею ввиду стиль написания)


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[TinMan]

Накручено, да ).
Совершенно неясно, зачем ты переделал/ла проверку с помощью логической переменной в целую. Ну, это еще ладно, в конце концов тут логических выражений нет. Но зачем делать k:=k+1 вместо простого k:=1 ??

И если уж речь зашла о стиле, то форматировать код тоже не помешало бы. К ITman это, впрочем, тоже относится..

И ставить теги - что за неуважение к собеседникам, ведь сделать два клика всего!

[Serge_Bliznykov]

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

И ставить теги - что за неуважение к собеседникам, ведь сделать два клика всего!

Золотые слова!
Так мало того, что это элементарное неуважение к тем, кого ты просишь о помощи, мало того, что некоторые сочетания парсер форума распознает как смайлики, например, мало того, что тот же парсер в длинные строчки кода вставляет пробелы (прямо посередине имени может попасть),
так это ещё и НАРУШЕНИЕ ПРАВИЛ ФОРУМА!

[IT-man]

ITman это, впрочем, тоже относится..

It-manу пофиг на форматирование! не ему в этом коде разбираться!