Вывести на экран все цифры, не входящие в десятичную запись натурального числа N - Turbo Pascal

Формулировка задачи:

Вывести на экран все цифры, не входящие в десятичную запись натурального числа N. Помогите пожалуйста с программой

Решение задачи: «Вывести на экран все цифры, не входящие в десятичную запись натурального числа N»

textual
                            Листинг программы 
                        

                            Var n:longint;
i:integer;
s:set of '0'..'9';
a:string;
c:char;
BEGIN
s:=[];
Readln (n);
Str (n, a);
For i:=1 to Length (a) do
s:=s+[a[i]];
For c:='0' to '9' do
IF not (c in s) THEN Write (c,' ');
END.
                        

Оцени полезность:

12 голосов , оценка 4.333 из 5

Похожие ответы