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

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.

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.