Question

Напечатать в возрастающем порядке все цифры, не входящие в запись данного натурального числа
ПОМОГИТЕ РЕШИТЬ В ПАСКАЛЕ

Answer 1

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

begin

 var h := HSet(Range(0,9));

 var n := Abs(ReadInteger('Введите целое число:'));

 while n > 0 do

 begin

   h.Remove(n mod 10);

   n := n div 10

 end;

 h.Println

end.