Задано число. Определить какие цифры не входят в это число.

Question

Задано число. Определить какие цифры не входят в это число.

Comments

На каком языке программирования написать?

---

паскаль

Answer 1

//PascalABC.NET
var
a,i:integer;
b:array [0..9] of boolean;
begin
Readln(a);
for i:=0 to 9 do b[i]:=false;
While a>0 do
begin 
if b[a mod 10]=false then b[a mod 10]:=true;
 a:=a div 10;
end;
for i:=0 to 9 do if not b[i] then Writeln(i);
end.

Comments

извини за отступы, с редактора так перенеслось)

---

всё исправил)))