计数问题

洛谷-P1980-计数问题

题目描述：

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

输入样例：
11 1

输出样例：
4

解题思路：

把读入的数组转换成字符串，然后再枚举，就OK了。

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 then inc(ans);
        end;
        writeln(ans);
end.