- 记数问题
- 2016-10-08 21:40:03 @
var n,i,j,s:longint;a:string;x:char;
begin
read(n,x);s:=0;
for i:=1 to n do
begin
a:=chr(i);
for j:=1 to length(a) do
if a[j]=x then inc(s);
end;
writeln(s);
end.
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
- 分类
- (无)
- 标签
- 递交数
- 16558
- 已通过
- 5790
- 通过率
- 35%
- 被复制
- 36
- 上传者