Ответы на вопрос:
Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! begin var n: =abs(readinteger('введите целое трехзначное число')); if n.between(100,999) then if n.tostring.select(c-> c).distinct.count< 3 then writeln('есть одинаковые цифры') else writeln('нет одинаковых цифр') else writeln('число должно быть трехзначным') end.
Популярно: Информатика
-
массисо01.11.2020 13:10
-
сергоо1627.08.2020 16:51
-
gudroonnp010ou20.01.2023 03:14
-
тигрц2829.08.2020 13:22
-
iobolenkov06.02.2022 11:34
-
dihochi22.04.2021 13:30
-
nasyi19.09.2022 22:59
-
anyasuharevap0ai2206.02.2021 01:42
-
кака23130.06.2021 00:41
-
tarasov7826.10.2022 01:25