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

Var a,b: integer; begin writeln('введите число'); readln(a); writeln('введите цифру'); read(b); if ((a mod 10)< > b) and  ((a div 10)< > b) and (a< 100) then begin a: =a+1; write("  ",a); end; end.

Код pascal: const     n = 13; type     mass = array[1..n] of real; function kl(var a: mass; c: real): integer; var     k,i: integer; begin k: =0; for i: = 1 to n do     if a[i] > c then k: =k+1; kl: =k; end; var     a: mass;     i: integer;     c: real; begin randomize; write('a(',n,'): '); for i: = 1 to n do     begin     a[i]: =random*21-10;     write(' ',a[i]: 0: 3);     end; writeln; write('c = '); readln(c); writeln('k = ',kl(a,c)) end. пример работы программы: a(13): -2.768 10.516 -3.518 9.286 5.555 1.039 1.225 -6.135 8.743 7.440 -3.979 6.129 -7.982 c = 3 k = 6

Program mac; uses crt;   const n=9; var c,i: integer; a: array[0..n] of integer; begin writeln('введите исходный массив'); for i: =0 to n do  begin       write('a[',i,']=');   readln(a[i]);   end;   writeln('вывод исходного массива'); for i: =0 to n do        write(a[i],' ');   writeln;   c: =a[n];     for i: =n-1   downto   0 do    a[i+1]: =a[i]; a[0]: =c; writeln('вывод   результативного   массива'); for i: =0 to n do  write(a[i],' ');   readln end.