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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Гость

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;

Accepted Answer

пишу на паскале 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.