Question

Числа вам даны число n и цифра d. выведите все n-значные числа, которые не содержат цифру d, в возрастающем порядке. формат входных данных в единственной строке входного файла записаны число n (1 ≤ n ≤ 7) и цифра d (0 ≤ d ≤ 9). формат выходных данных в выходном файле выведите все n-значные числа, которые не содержат цифру d, по одному в одной строке.

Answer 1

Uses crt;
var n,d,z,x,c,k,a,b:integer;
begin
     write('N:'); readln(n);
     write('D:'); readln(d);
     a:=round(power(10,n-1));
     b:=round(power(10,n)-1);
     for x:=a to b do
     begin
          z:=x;
          k:=0;
          while z>0 do
          begin
               c:=z mod 10;
               if c=d then inc(k);
               z:=z div 10;
          end;
          if  k=0 then writeln(x);
     end;
end.