Ответы на вопрос:
// pascalabc.net 3.2, сборка 1370 от 24.12.2016 // внимание! если программа не работает, обновите версию! begin; var s: =readinteger('n=').tostring; if s.length< > (s.distinct.count) then writeln('не является') else if s=s.tochararray.sorteddescending.joinintostring('') then writeln('является') else writeln('не является') end. примеры n= 9875431 является n= 9753321 не является n= 9763421 не является замечание: учтено, что должна быть по убыванию а не по невозрастанию. т.е. нельзя, чтобы попадались две одинаковые цифры.
Популярно: Информатика
-
DenKovYa25.03.2021 14:44
-
Валоронтеа26.03.2022 07:10
-
lana23107506.06.2023 02:22
-
tsvirko789122.04.2021 14:03
-
tasn23.11.2022 11:13
-
ksenia777angel30.08.2022 03:33
-
Моначка15.09.2020 23:15
-
zarasabaka03.04.2020 11:40
-
khabarovanastya04.04.2023 11:43
-
greenlyte0913.03.2022 17:16