Ответы на вопрос:
//pascalabc.net 3.2 сборка 1318 var senotexist: set of char=['0','1','2','3','4','5','6','7','8','9']; arrnotexist: array of char; count,i: integer; num: string; begin readln(num); for i: =1 to length(num) do senotexist-=[num[i]]; foreach var x in senotexist do begin inc(count); setlength(arrnotexist,count); arrnotexist[count-1]: =x; end; sort(arrnotexist); writeln(count); arrnotexist.print(' '); end. пример ввода: 81233214554 пример вывода: 4 0 6 7 9
Популярно: Информатика
-
sergeyyakimov0521.11.2020 22:55
-
ivan8800104.11.2020 07:16
-
twinnyXD10.05.2021 05:13
-
BifLee10.10.2020 12:50
-
Ihop22.08.2022 16:09
-
RegexArtSek14.12.2021 04:30
-
alkofner30.09.2020 10:25
-
lexanyreev01.11.2022 12:09
-
pankovakseniya25.04.2021 13:50
-
далина320.03.2022 19:42