Delphi n-число

[Lexa567]

Дано число n-трёхзначное.Определить есть ли среди его цифр две одинаковые
Как это реализовать?
Заранее благодарен

[IT-man]

n-трёхзначное

а это что за число такое?

[Lexa567]

Любое число,состоящее из трёх цифр

[IT-man]

a:=x div 10 mod 10;
b:=x div 100;
c:=x mod 10;
writeln((a=b) or (b=c) or (a=c));

[Rin]

if (a mod 10=(a div 10)mod 10)or(a mod 10=a div 100) or(a div 100=(a div 10)mod 10) then writeln('Da') else writeln('HeT')

[Lexa567]

Спасибо большое!!!