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

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.

Извращенно, но главное, что работает: uses crt; var n,d,j,m: integer; i,k: string; flag: byte; begin read(n,d); i: ='1'; k: ='9'; while length(i)< n do 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.

Pascal: var i: integer; begin   i: =21;   while i< =50 do     begin       write (i,' ');       inc(i,2);       end;     readln; end. c++: #include < iostream> #include < conio.h> using namespace std; int main()   {     for (int i = 21; i< =50; i+=2)       {         cout < < i < < " ";       }     cout < < endl;     getch();     return 0;   }

Pascal: var n: longint; begin   write ('n = ');   readln(n);   if n mod 2 = 0 then writeln ('да') else writeln ('нет');   readln; end. c++: #include < iostream> #include < conio.h> int main()   {     setlocale (lc_ctype,"russian");     int n;     std: : cout < < "n = ";     std: : cin > > n;     if (n%2 == 0)     {       std: : cout < < "да" < < std: : endl;     }   else     {       std: : cout < < "нет" < < std: : endl;       }     getch();     return 0;   }