Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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

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.