var

  n,r1,r2,r3,r4 : integer;

begin

  readln(n);

  r1:=n mod 10; r2:=n div 10;

  r3:=r2 mod 10; r4:=r2 div 10;

  if (r1 = r3) or (r1 = r4) then

     writeln('Да')

  else

     writeln('No');

end.

Ответ:

Паскаль

var d,x,y,z:integer;

begin

writeln ('Введите трехзначное число');

readln (d);

x:=d mod 10;

y:=d div 10 mod 10;

z:=d div 100 mod 10;

if (x=y) or (x=z) or (y=z) then writeln ('Да')

else writeln ('Нет');

end.

Объяснение: