楼层

【问题描述】

    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
m,t,ans,i,j:longint;
zf:string;
function s(w:longint):longint;
var
zfc:string;
bz,i:longint;
begin
    str(w,zfc);
    bz:=0;
    for i:=1 to length(zfc) do
    if zfc[i]=zf then
    begin
        bz:=1;
        break;
    end;
    exit(bz);
end;
begin
    read(m,t);
    j:=0;ans:=0;
    str(t,zf);
    for i:=1 to m do
    begin
        inc(j);
        if s(j)=0 then inc(ans);
    end;
    write(ans);
end.