讨论 / 好吧。。挺简单的。。。
Leticia 2014-01-15 06:38:54
点我顶贴 收藏 删除
var

n,x,m,i,q,p,s,j:longint;

c:string;

begin

read(n,x);

for i:=1 to n do begin

m:=i;

str(i,c);

p:=length(c);

for j:=1 to p do begin

q:=m mod 10;

if q=x then s:=s+1;

m:=m div 10;

end;

end;

write(s);

end.

#1 董阴@2014-01-30 21:18:40
回复 删除
这不是与2010年的第一题一模一样吗?
#2 yearwhk@2014-02-01 23:26:09
回复 删除
这不是在坑吗……
查看更多回复
提交回复