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

Question

Информатика

Зиновий

4 декабря, 08:16

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

+1

Ответы (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;