Есть ли одинаковые цифры во введенном числе

var a:array[1..100]of integer;
    n,m,digit,i,j:integer;
    flag:boolean;
begin
     writeln('Введите число: ');
     readln(n);
     i:=1;
     while(n<>0) do
     begin
          digit:=n mod 10;
          a[i]:=digit;
          n:=n div 10;
          inc(i);
     end;
     m:=i;
     flag:=false;
     for i:=1 to m do
         for j:=1 to m do
             if (i<>j) and (a[i]=a[j]) then
                flag:=true;
     if (flag) then writeln('Есть одинаковые цифры')
     else writeln('Нет одинаковых цифр');
end.

uses crt;
var
 N : integer;
 i, j, k, z : integer;
 q : boolean;
Begin
clrscr;
writeln(' определить все ли цифры натурального числа различны');
writeln;
Write('Введите натуральное число: ');
Readln(n);
if abs(n) >= 10 then
begin
k := n;
q := false;
repeat
z := k mod 10;
k := k div 10;
n := k;
repeat
j := n mod 10;
n := n div 10;
if j = z then
q := TRUE;
until (n mod 10 = 0);
until (k div 10 = 0);
if q=TRUE then Writeln('Есть одинаковые цифры') else
Writeln('Все цифры числа различны')
end else
writeln('Единственная цифра в числе');
 readln;
END.

var digit : set of byte;
    d, n : integer;
    b : boolean;
begin
  write('n = ');
  readln(n);
  n := abs(n); {на всякий случай, вообще по заданию числа натуральные}
  digit := [];
  b := false;
  while n > 0 do
    begin
      d := n mod 10;
      n := n div 10;
      b := d in digit;
      if b
        then break
        else include(digit, d)
    end;
  if b
    then writeln('Есть одинаковые цифры')
    else writeln('Одинаковых цифр нет');
  readln
end.

var digit : set of byte;
    d, n, i : integer;
    b : boolean;
begin
  write('n = ');
  readln(n);
  n := abs(n); {на всякий случай, вообще по заданию числа натуральные}
  digit := [];
  b := false;
  for i := 0 to maxint do
    begin
      if n = 0 then break;
      d := n mod 10;
      n := n div 10;
      b := d in digit;
      if b
        then break
        else include(digit, d)
    end;
  if b
    then writeln('Есть одинаковые цифры')
    else writeln('Одинаковых цифр нет');
  readln
end.

var digit : set of byte;
    d, n, i : integer;
    b : boolean;
begin
  write('n = ');
  readln(n);
  n := abs(n); {на всякий случай, вообще по заданию числа натуральные}
  digit := [];
  b := false;
  if n > 0
    then
      for i := 0 to trunc(ln(n) / ln(10)) do
        begin
          d := n mod 10;
          n := n div 10;
          b := d in digit;
          if b
            then break
            else include(digit, d)
        end;
  if b
    then writeln('Есть одинаковые цифры')
    else writeln('Одинаковых цифр нет');
  readln
end.

Var ss : Set of Byte;
    n  : Longint;
    fl : Boolean;
Begin
  Readln(n);
  ss:=[]; fl:=False;
  While n>0 do
  Begin
    fl:=fl or ((n mod 10) in ss);
    Include(ss,n mod 10);
    n:=n div 10;
  end;
  Writeln(fl);
end.

Var ss : array[0..9] of Byte;
    n  : Longint;
    i  : Byte;
Begin
  Readln(n);
  For i:=0 to 9 do ss[i]:=0;
  While n>0 do
  Begin
    Inc(ss[n mod 10]);
    n:=n div 10;
  end;
  For i:=0 to 9 do
    If ss[i]>1 then
    Begin
      Writeln('Есть одинаковые цифры.');
      Halt;
    end;
  Writeln('Нет одинаковых цифр.');
end.

Function Check(n : Longint) : Boolean;
Var fl : Boolean;
  Function EQ(nn : Longint; t : Byte) : Boolean;
  Begin
    If nn>0 then EQ:=(t=(nn mod 10)) or EQ(nn div 10,t)
    else EQ:=False;
  end;
Begin
  fl:=False;
  While n>9 do
  Begin
    fl:=fl or EQ(n div 10,n mod 10);
    n:=n div 10;
  end;
  Check:=fl;
end;
 
Begin
  Writeln(Check(1234456));
end.

var
  n, bit : longint;
  L : longint;
  uniq : boolean;
begin
  L := 0;
  uniq := true;
  n := 1231458;
  while n > 0 do
  begin
    bit := $1 shl (n mod 10);
    uniq := uniq and ((L and bit) = 0);
    L := L or bit;
    n := n div 10;
  end;
  writeln(not uniq);
end.