楼层

【问题描述】

    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。(1m1000000t9

【输出】

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

【输入输出样例】

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.

原文地址:https://www.cnblogs.com/YYC-0304/p/9500112.html