Дано трехзначное число. нужно определить есть ли в нем одинаковые цифры паскаль. начало сделала, а вот ,что дальше не знаю program dzkan; var x,a,b,c: integer; begin writeln(введите трехзначное число'); readln(x); a: =x div 100; b: =x mod 100 div 10; c: =x mod 10;
Begin
readln(a);
b:=a mod 10;
c:=a mod 100 div 10;
d:=a div 100;
If (b=c) or (b=d) or (c=d) then
writeln('YES')
else
writeln('No')
End.