var
 a,b,c:ansistring;
 n,x,i,s:longint;
begin
 read(n,x);
 str(x,c);
 for i:=1 to n do
 begin
 str(i,b);
 a:=a+b;
 end;
 for i:=1 to length(a) do if a[i]=c then inc(s);
 write(s);
end.
才60分，4个测试点超时啊！！