怎么会过不了?请高手指点

var a:array[1..10000]of real;i,j,n,x:integer;s:real;

begin

readln(n);

for i:=1 to 10000 do

begin

s:=s+1/i;a[i]:=s;

end;

x:=1;

repeat

inc(x);

until a[x]>n;

writeln(x);

end.

0 条评论

目前还没有评论...

信息

ID
1127
难度
4
分类
模拟 点击显示
标签
递交数
10606
已通过
4818
通过率
45%
被复制
35
上传者