2017.5.21测试 题一 楼层

题一 楼层

（ 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
 s,tt:string;
 m,t,i,j,ans:longint;
begin
 read(m,t);
 str(t,tt);//转成字符串
 for i:=1 to m do//一个一个地找
  begin
   str(i,s);//转成字符串
   if pos(tt,s)<>0 then inc(ans);//其中有t的层数就累加
  end;
 writeln(m-ans);//剩余的楼层
end.