// 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 не является замечание: учтено, что должна быть по убыванию а не по невозрастанию. т.е. нельзя, чтобы попадались две одинаковые цифры.
2*2*2*2*2*2*2*2*2*2 = 2^10 = 1024