```cpp
var
n,m,i,j,ans:longint;
x:string;
begin
readln(n,m);
for i:=1 to n do
begin
str(i,x);//转换为字符串方便计算
for j:=1 to length(x)do//枚举每一位
if ord(x[j])-48 =m//ord(s[j])求ascil码，-48变数字，新手牢记
then inc(ans);//你发现出现了一次
end;
writeln(ans);//出现次数
end.
不用回复了，会了
```
by _棉花糖_ @ 2017-11-01 19:00:33