Решите задачу на паскале! В промежутке [m, n] найти все числа, в записи которых нет цифры b.

Program Program1;

var

i, n, m, b:integer;

s, s1:string;

Begin

write ('Введите значение m: ');

readln (m);

write ('Введите значение n: ');

readln (n);

write ('Введите значение b: ');

readln (b);

str (b, s);

for i:=m to n do

begin

str (i, s1);

if pos (s, s1) = 0 then writeln (i);

end;

end.

Program Pr1;

uses crt;

var mas:array[byte] of integer;

i, n, m, b, a, c:integer;

tmp, tmp1:string;

Begin

clrscr;

writeln ('Введите промежуток и число');

readln (m, n, b);

str (b, tmp);

for i:=m to n do begin

c:=0;

tmp1:='';

str (i, tmp1);

for a:=1 to length (tmp1) do if tmp1[a]tmp[1] then c:=c+1;

if c=length (tmp1) then writeln (i);

end;

end.