Определить, есть ли среди цифр заданного целого трехзначного числа одинаковые.

Question

Информатика

Петюка

29 июня, 23:00

Определить, есть ли среди цифр заданного целого трехзначного числа одинаковые.

+2

Ответы (1)

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

Иероним · Answer 1

Var

a: word;

b, c, d: byte;

begin

readln (a) ;

b : = a mod 10;

c : = a div 10 mod 10;

d : = a div 100;

writeln (b, ' ', c, ' ', d) ;

if ((b in [c, d]) or (c in [b, d]) or (d in [b, c])) then

writeln ('Yes, there are')

else

writeln ('No, there aren"t') ;

end.