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

Question

Информатика

Рубен

21 апреля, 06:46

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

+4

Ответы (2)

Знаете ответ?

Меля · Answer 1

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;

Сашуха · Answer 2

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

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.