Задан номер мобильного телефона. Определить, какие цифры отсутствуют в этом номер
Задан номер мобильного телефона. Определить, какие цифры отсутствуют в этом номере.
Входные данные:
В единственной строке задан номер мобильного телефона.
Выходные данные:
В первой строке вывести количество отсутствующих в номере цифр. Во второй строке в порядке возрастания вывести отсутствующие цифры, разделенные пробелом.
Гость
Ответ(ы) на вопрос:
Гость //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
Не нашли ответ?
Похожие вопросы