Question

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

Answer 1

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.