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

Question

Информатика

Алеша

7 декабря, 00:43

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

+5

Ответы (2)

Знаете ответ на вопрос?

Доминик · 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;