===== PascalABC.NET =====
begin
var h := HSet(Range(0,9));
var n := Abs(ReadInteger('Введите целое число:'));
while n > 0 do
h.Remove(n mod 10);
n := n div 10
end;
h.Println
end.
===== 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.