Question

Дано трехзначное число. Напишите программу, которая определяет есть ли среди цифр заданого целого трехзначного числа одинаковые цифры.

Answer 1

 var   
a,i : integer;   
b : array [1..3] of integer;  

begin 
readln (a);    
 for i := 1 to 3 do 
   begin 
   b[i] := a mod 10; 
   a := a div 10;   
 end;    
   If (b[1] = b[2]) or (b[2] = b[3])
   or    (b[1] = b[3]) then   
   writeln ('Есть одинаковые цифры') 
  else   
 writeln ('Нет'); 
 readln ();  
 end.