一生悬命

人若无名,便可专心练剑。

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

试计算在区间 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.


阅读更多
版权声明:本文为博主原创文章,未经博主允许不得转载(不过这句话并没有什么*用) https://blog.csdn.net/sjtu081200/article/details/49906367
个人分类: Pascal基础
上一篇信息学奥林匹克竞赛-编程语言
下一篇信息学奥林匹克竞赛-数字反转
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭