2017.5.21試験問題1階

問題1階
( floor. .* * )
【問題の説明】
mxyは新しい世界の扉が開いたような気がします.
taは新世界のホテルで部屋を探すことにした.新世界には毎日高エネルギーの数字tがあることが知られており、この数字はフロアでは現れない.私たちはt=3を例にとると、3,13,31,33などのフロアは存在せず、フロア番号は1,2,4,5・・・なので、実際の4階が3階です.
mxyがm階の部屋を予約し、当日の高エネルギー数字がtであることが知られていますが、今はtaの部屋の本当のフロアがどれだけあるか知りたいです.(m対tの合法性を保証する)
【入力】
1行2個の整数mとt.(1≤m≤100000,0≤t≤9)
【出力】
1行1つの整数で、実際のフロアを表します.
【入出力サンプル】
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.