var m,k,n:integer;

begin

read(k);

for m:=1 to n do

begin

k:=1+1/n;

end;

write(n);

end.

Program wood;

var

　　i,k:longint;

　　Sn:real;

Begin

　　read(k);

　　i:=0;Sn:=0;

　　repeat

　　 i:=i+1;

　　 Sn:=Sn+1/i;

　　 if Sn>k then

　　 Begin

　　　　 write(i);

　　　　 break

　　 End

　　Until Sn>k;

End.　　　

楼下2位

注意下咯

下面这个人是冒充我们长郡的,

毫无素质可言!!!

管理员封号!

ID严重侮辱VIJOS和OIer!!!!!

Program wood;

var

i,k:longint;

Sn:real;

Begin

read(k);

i:=0;Sn:=0;

repeat

i:=i+1;

Sn:=Sn+1/i;

if Sn>k then

Begin

write(i);

break

End

Until Sn>k;

End.

肏，这种题目羞辱我智商。。。切，垃 圾 题 目~

编这个题的时候，我发现我的FP崩溃了……

编译通过...

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

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

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

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

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

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

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

这这这太水了，可我们老师说当年这题专门针对BASIC，basic实数类型小，要高精度我只有一个字，囧！

var

k,n:longint;

s:real;

begin

readln(k);

while s

╭(╯^╰)╮

水

水 水

水水水水水 水

水 水水水

水 水 水

水 水 水

水 水 水

水 水水 水

水

水题不扫，何以扫天下.

忘了写数组，直接把n输出了。。。。。

交了两次。。。。。。

我的第65个AC。。。

还是纪念一下吧。。

各位牛人帮我看看这个怎么改啊，怎么有两组数据说被零除……

program jisuan;

var k,i:integer;

sn:real;

begin

read(k);

sn:=0; i:=1;

repeat

sn:=sn+(1/i);

if snk;

write(i);

end.

感激

超时啊～～

Who buchao?

var

n,m,k:longint;

Sn:real;

begin

readln(k);

for n:=1 to 10000000 do

begin

Sn:=Sn+1/n;

if Sn>k then break;

end;

write(n);

readln;

end.

用这方法一次AC。。。。

搞不动楼下干嘛用畸形方法

编译通过...

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

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

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

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

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

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

Accepted 有效得分：100 有效耗时：0ms 用WHILE 也不会超时

#include

int main(){

int k;

long n=1;

double sn;

scanf("%d",&k);

while(1){

sn+=1.00/n;

if (sn>k) break;

n++;

}

printf("%ld\n",n);

return 0;

}

File Edit Search Run Compile Debug Tools Options Window Help

╔═[■]═══════════════════════════════ 1.PAS ══════════════════════════════1═[↕]═╗

║var ▲

║sn:real; ■

║i,j:longint; ▒

║begin ▒

║ readln(j);sn:=0;i:=1; ▒

║ repeat ▒

║ sn:=sn+1/i; ▒

║ inc(i); ▒

║ until sn>j; ▒

║ writeln(i-1> ▒

║ ; ▒

║end. ▒

║ ▒

║ ▒

║ ▒

║ ▒

║ ▒

║ ▒

║ ▒

║ ▒

║ ▼

╚═☼════ 11:6 ═════◄■▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒►─┘

F1 Help F2 Save F3 Open Alt+F9 Compile F9 Make Alt+F10 Local menu

编译通过...

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

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

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

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

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

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

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

#include

main()

{

int K;

long int n,i;

double temp=0;

double sum;

scanf("%d",&K);

for(i=1;;i++)

{

sum=1.0/i;

temp=temp+sum;

if(temp>K) break;

}

printf("%d",i);

}

c中要用DOUBLE，倒数还要用1.0除

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.