点我顶贴
收藏
删除
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
32504
回复
删除
这不是与2010年的第一题一模一样吗?
查看更多回复
拥有 RQNOJ 账号,您可以:
- 查看海量题库,并提交您的代码
- 参加比赛,证明实力
- 与大家讨论,解答疑问,分享心得
提交回复