Каких цифр нет в записи числа Х. число-2783. (Pascal ABC)

Question

Алексей · Accepted Answer

var S : Set of Byte; N : Byte; X : Integer; 
begin 
S := [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]; 
Write('Введите число : '); ReadLn(X); 
if X = 0 then Exclude(S, 0) else while X  0 do begin Exclude(S, X mod 10); X := X div 10; end; 
Write('В числе нет цифр: '); for N := 0 to 9 do if Not(N in S) then Write(N, #32); WriteLn; 
end.