Вам даны число N и цифра D. Выведите все N-значные числа, которые не содержат цифру D, в возрастающем порядке.

Извращенно, но главное, что работает:

uses crt;

var n, d, j, m:integer;

i, k:string;

flag:byte;

begin

read (n, d);

i:='1';

k:='9';

while length (i)
begin

i:=concat (i,'0');

k:=concat (k,'9');

end;

for j:=strtoint (i) to strtoint (k) do

begin

flag:=1;

for m:=1 to length (inttostr (j)) do

if strtoint (inttostr (j) [m]) = d then

flag:=0;

if flag=1 then

write (inttostr (j),' ');

end;

end.

Uses crt;

var n, d, x, a, k:integer;

begin

write ('N: '); readln (n);

write ('D: '); readln (d);

for x:=round (power (10, n-1)) to round (power (10, n) - 1) do

begin

a:=x;

k:=0;

while a>0 do begin

if a mod 10=d then inc (k);

a:=a div 10;

end;

if k=0 then write (x,' ');

end;

end.