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

177

179

Посмотреть ответы 2

Ответы на вопрос:

kosen2332

Информатика

4,6(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.