Question

Задано число. Определить, какие цифры не входят в это число. Решить в Паскале с помощью множеств.

Answer 1

Var a,i:integer; mn:set of 0..9;
begin
write('a = '); readln(a);
mn:=[];
while a>0 do
 begin
 mn:=mn+[a mod 10];
 a:=a div 10;
 end;
writeln('В числе нет следующих цифр:');
for i:=0 to 9 do
 if not(i in mn) then write(i:2);
writeln;
end.

Пример:
a = 1356
В числе нет следующих цифр:
 0 2 4 7 8 9