Вывести на экран все цифры, не входящие в десятичную запись натурального числа 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д