题层一 楼

题层一 楼

（ floor. .* * ）

【问题描述】

    mxy 感觉新世界的大门打开了。

    ta 决定要在新世界的旅馆中找间房住。已知新世界每天都有一个高能的数字 t，这个数字在楼层中是不会出现的。我们以 t=3 为例，则 3,13,31,33 等楼层是不存在的，楼层编号为 1,2,4,5……，所以实际上的 4 楼才是 3 楼。

    已知 mxy 订了编号为 m 层的房间，并且当天高能数字是 t，现在 ta 想知道 ta 的房间真实楼层是多少。（保证 m 对 t 合法）

【输入】

    一行 2 个整数 m 和 t。（1≤m≤100000，0≤t≤9）

【输出】

    一行一个整数，表示真实楼层。

【输入输出样例】

floor.in

14 3

floor.out

 12

var
  ans,i,j,m,k,n:longint;




function aa(x:longint):boolean;
var
  i,j:longint;
  s:string;
  s1:ansistring;
begin
  aa:=false;
  str(x,s1);
  str(m,s);
  for i:=1 to length(s1) do
    begin


      if s1[i]=s[1] then
       begin
         exit(true);
       end;
    end;
end;


begin
  assign(input,'floor.in'); reset(input);
  assign(output,'floor.out'); rewrite(output);
  readln(n,m);


  for i:=1 to n do
    begin
     if aa(i)
        then inc(ans)
    end;
  writeln(n-ans);


  close(input);
  close(output);
end.