Question

Напечатать в возрастающем порядке все цифры, не входящие в запись данного натурального числа.(ПАСКАЛЬ)
срочно помогите

Answer 1

===== PascalABC.NET =====

begin

 var n: int64;

 Print('Введите натуральное число:');

 Read(n);

 var a := ArrFill(10, False);

 while n > 0 do

 begin

   a[n mod 10] := True;

   n := n div 10

 end;

 Print('В числе отсутствуют цифры');

 for var i := 0 to 9 do

   if not a[i] then

     Print(i);

end.