Числа с разными цифрами

[FlayGlam]

Дано некоторое количество целых чисел. Каждое число лежит в интервале от 0 до 2 миллиардов. Числа отделяются друг от друга пробелами и/или переводами строк.
В ответе выведите через пробел эти же числа, но оставив только те из них, в которых все цифры различны

Пример входных данных:
12 242 3 88

Пример результата:
12 3

[Serge_Bliznykov]

язык программирования? и поясните, в чём для Вас сложность решения данной задачи?

[taras-proger]

bool check(const int &x)
{
 int buffer1;
 int buffer2;
 unsigned int i;
 unsigned int j;
 buffer1=x;
 i=0;
 do
 {
  buffer2=x;
  j=0;
  do ()
  {
    if (i!=j)
    {
     if ((buffer1%10)==(buffer2%10))
     {
      return false;
     }
    }
    buffer2/=10;
    ++j;
  } while (buffer2!=0)
  buffer1/=10;
  ++i;
 } while (buffer!=0);
 return true;
}

,

function check(x:integer):boolean;
var buffer1, buffer2:integer;
    i.j:integer;
    r:boolean;
begin
     r:=true;
     buffer1:=x;
     i:=0;
     do
       buffer2:=x;
       j:=0;
       do
         if i<>j then if (buffer1 mod 10)=(buffer2 mod 10) then begin
                                                                     r:=false;
																	 break;
																end;
         j:=j+1;
       whille (buffer2<>0);
	   if not(r) then break;
       buffer:=buffer div 10;
       i:=i+1;
     while (buffer1<>0);
     check:=r;
end;

. Юзай одну из этих функций для проверки каждого числа.

[taras-proger]

Есть ещё решение. Так как разных цифр может быть максимум 10, то можно переписать, избавившись от квадратичности:

bool check(int x)
{
 bool Flags[10]={false, false, false, false, false, false, false, false, false, false};
 int Digital;
 do
 {
  Digital=x%10;
  if (Flags[Digital])
  {
   return false;
  }
  Flags[Digital]=true;
  x/=10;
 } while (x!=0);
 return true;
}

,

function check(x:integher):boolean;
var buffer:integer;
    r:boolean;
    Digital:integer;
    Flags=array[0..9] of boolean=(false, false, false, false, false, false, false, false, false, false);
begin
     r:=true;
     buffer:=x;
     do
       Digital:=buffer mod 10;
       if Flags[Digital] then begin
                                   r:=false;
								   break;
                              end;
       buffer:=buffer div 10;
     while (buffer<>0);
     check:=r;
end;

.

[Serge_Bliznykov]

Тарас, что это за ужас? Второй код на каком языке?
иницилизировать локальные переменные в описании нельзя.
Flags true никогда в вашем коде не становится.
оператора do while() в Паскале нет.
ну и т.д. и т.п.

Скажите, вот зачем Вы пишете код, который не проверяете?
Вы так в нём уверены, что проверки, по вашему, не нужно?