PROGRAM PLUS;

var

a,b,c,d:longint;

begin

readln(d);

c:=0;

for b:=1 to 10000 do

begin

　　a:=a+1/b;

　　if a>d

　　 then if c=0

　　　　　　 then c:=b;

end;

writeln(b);

end.

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

很荣幸成为第　4152　个同过的，嘻

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

超水，我无语。。。

ps提交100题

var

sn:real;

i,k:longint;

begin

readln(k); sn:=0; i:=1;

repeat

sn:=sn+1/i;

inc(i);

until sn>k;

writeln(i-1);

end.

const

ans:array[1..15] of longint=(2,4,11,31,83,227,616,1674,4550,12367,33617,91380,248397,675214,1835421);

var

k:integer;

begin

readln(k);

writeln(ans[k]);

end.

对于这道题我真无语了.去usaco待了一下午,心情很不好,想做道简单的题调节一下心情,就选了这道,没想到相同的程序,我提交了好几遍才过,郁闷...

var sn:real;

n,k:longint;

begin

readln(k);

n:=0;

sn:=0;

repeat

inc(n);

sn:=sn+1/n;

until sn>k;

writeln(n);

end.

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

直接１个循环AC...

本来还担心超时..可见VIJOS的数据简直...

失败~11行代码都交两遍……把n：=n+1放到s：=s+1/n后面去了~

避免被零除，其实一开始把s和n设为1就好了

RP好差，验证码竟然是UAC8

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

year!

最好不要用while循环(Pas)，以免超时。

这种水题还用cheat???!

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

我承认我短路了

N忘了是longint结果总是被0除 ....

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

弱～～～～～～～～～～～～！！！

哪位大牛能把求和公式摆出来……

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

问上面各位大牛．．．你们的程序不超时啊？

我在我的电脑（还不错的）输入了15．．等了4秒钟．．

但是vijos测试时却不会．．

爆寒．．