楼层
【問題描述】
????mxy 感覺新世界的大門打開了。
????ta 決定要在新世界的旅館中找間房住。已知新世界每天都有一個高能的數(shù)字 t，這個數(shù)字在樓層中是不會出現(xiàn)的。我們以 t=3 為例，則 3,13,31,33 等樓層是不存在的，樓層編號為 1,2,4,5……，所以實際上的 4 樓才是 3 樓。
????已知 mxy 訂了編號為 m 層的房間，并且當天高能數(shù)字是 t，現(xiàn)在 ta 想知道 ta 的房間真實樓層是多少。（保證 m 對 t 合法）
【輸入】
????一行 2 個整數(shù) m 和 t。（1≤m≤100000，0≤t≤9）
【輸出】
????一行一個整數(shù)，表示真實樓層。
【輸入輸出樣例】
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.
轉(zhuǎn)載于:https://www.cnblogs.com/YYC-0304/p/9500112.html
總結(jié)
