信息学奥林匹克竞赛-计数问题

试计算在区间 1 到 n 的所有整数中，数字 x（0 ≤ x ≤ 9）共出现了多少次？例如，在 1

到 11 中，即在 1、2、3、4、5、6、7、8、9、10、11 中，数字 1 出现了 4 次。

输入格式：
输入文件名为 count.in。 
输入共 1 行，包含 2 个整数 n、x，之间用一个空格隔开。
输出格式：
输出文件名为 count.out。 
输出共 1 行，包含一个整数，表示 x 出现的次数。

input:

11 1

output:

4

var
i,t,counter,n,x:longint;

begin
	n:=11;
	x:=1;
	for i:=1 to n do
	begin
		t:=i;
		while t>0 do
		begin
			if t mod 10=x then
			begin
				counter:=counter+1;
			end;
			
			t:=t div 10;
		end;
	end;
	
	writeln(counter);
end.