Question

выяснить есть ли в трёхзначном числе одинаковые цифры

Answer 1

пишу на паскале

program tralala;

var a,b,c,n:integer;

begin

readln(n);

a:=n div 100;

b:=n div 10 mod 10;

c:=n mod 10;

if (a=b) or (a=c) or (b=c) then writeln (Есть');

else write('Нету');

end.

Answer 2

var

s:string[3];

begin

readln(s);

if (s[1]=s[2]) or (s[3]=s[1]) or (s[3]=s[2]) then

writeln('Есть') else

writeln('Нет');

end;