Определить, есть ли среди цифр заданного целого трехзначного числа одинаковые.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
