Question

Задан номер мобильного телефона. Определить, какие цифры отсутствуют в этом номере.

Входные данные:

В единственной строке задан номер мобильного телефона.

Выходные данные:

В первой строке вывести количество отсутствующих в номере цифр. Во второй строке в порядке возрастания вывести отсутствующие цифры, разделенные пробелом.

Answer 1

//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