记录编号	82531	评测结果	AAAAAAAAAA
题目名称	[NOIP 2013]计数问题	最终得分	100
用户昵称	我密码是sjb	是否通过	通过
代码语言	Pascal	运行时间	0.157 s
提交时间	2013-11-25 17:48:43	内存使用	0.17 MiB

program cc;
var
s,x,y,z,i,d:longint;
begin
assign(input,'count2013.in');
assign(output,'count2013.out');
reset(input);
rewrite(output);
read(x,y);
for i:=1 to x do
begin
d:=i;
while d<>0 do
begin
z:=d mod 10;
d:=d div 10;
if z=y then s:=s+1;
end;
end;
write(s);
close(input);
close(output);
end.