思路:不停算s,直到s>n.
注意:
1)s必须定义为小数类型
2)for i:=1 to 10000000 是因为当n=15 时算出来是1825421(剧透),所以循环i太小可能不出结果
3)算出i之后必须exit或break,否则循环一直运行...
```cpp
var
s:extended;
n,i:longint;
begin
read(n);
s:=0.0;
for i:=1 to 10000000 do begin
s:=s+1/i;
if s>n then begin write(i);exit;end;
end;
end.
```