3 条评论
-
hahayang LV 10 @ 2016-12-03 14:19:20
var
st:string;
n, x, i, j, s:longint;
begin
read(n, x);
s:=0;
for i:=1 to n do begin
str(i, st);
for j:=1 to length(st) do if ord(st[j])-48=x then inc(s);
st:=''
end;
write(s)
end. -
@ 2016-11-05 11:15:00
这样x读进去是空格
-
@ 2016-11-05 11:14:58
这样x读进去是空格
- 1
信息
- ID
- 1848
- 难度
- 5
- 分类
- (无)
- 标签
- 递交数
- 16552
- 已通过
- 5786
- 通过率
- 35%
- 被复制
- 36
- 上传者
-
Towerlight
