2013记数问题

试计算在区间1到n的所有整数中，数字x（0≤x≤9）共出现了多少次？例如，在1到11中，即在1、2、3、4、5、6、7、8、9、10、11中，数字1出现了4次。

输入共1行，包含2个整数n、x，之间用一个空格隔开。

输出共1行，包含一个整数，表示x出现的次数。

11 1

4

对于100%的数据，1≤n≤1,000,000，0≤x≤9。

题解：

模拟。

大致接近2010年的数字统计，只不过那是是2，现在是x，不过其实差不多。

var n,k,i,j,ans:longint;

    s:ansistring;

begin

 readln(n,k);

 for i:=1 to n do

  begin

   str(i,s);

   for j:=1 to length(s) do

    if ord(s[j])-48=k then inc(ans);

  end;

 write(ans);

end.