var

k,s:longint;

l:real;

begin

readln(k);

s:=0;

l:=0;

while l

var n,k,i:longint;t:real;

Begin

readln(k);

t:=0;

i:=0;

while t

program P1127;

{$n+}

var

k,n:longint;

s:extended;

begin

readln(k);

s:=1; n:=1;

while s

var

i,j,k,n:longint;

m:real;

begin

read(k);

m:=0;

i:=1;

repeat

m:=m+1/i;

if m>k

then begin

write(i);

halt;

end;

inc(i);

until false;

end.

我无语了

这通过率只有52%??

这水题还是题吗？2分钟AC 阿东VS燕麦

var

k,n:longint;

sn:real;

begin

readln(k);

repeat

inc(n);

sn:=sn+1/n;

until sn>k;

writeln(n);

readln;

end.

编译通过...

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

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

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

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

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

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

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

program p1127;

var i,j,k:longint;

min:real;

begin

readln(k);

i:=1;

min:=0;

while min

Var

sn:real;

k:integer;

n:longint;

Begin

readln(k);

sn:=1;

n:=1;

while sn

var i,k:longint;

t:extended;

begin readln(k);

　　 while k-t>=0 do

　　　　begin inc(i);

　　　　　　 t:=t+1/i;

　　　　end;

writeln(i);

end.

编译通过...

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

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

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

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

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

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

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

丫！一次AC！！！

（啊！哪来的西红柿！！）

//By Vinci Haber

var

k,n:longint;

s:real;

begin

readln(k);

s:=0;

for n := 1 to 200000000 do

begin

s:=s+1/n;

if s>k then break;

end;

writeln(n);

end.

水~~~~

program p1127;

var

m,k:longint;

s:extended;

begin

read(k);

repeat

m:=m+1;

s:=s+1/m;

until s>k;

write(m);

end.

这么简单！！！！！

var i,k:longint;

t:extended;

begin readln(k);

while k-t>=0 do

begin inc(i);

t:=t+1/i;

end;

writeln(i);

end.

var i,k:longint;

t:extended;

begin

readln(k);

while k-t>=0 do

begin

inc(i);

t:=t+1/i;

end;

writeln(i);

end.

program p1127;

var i,k:longint;

t:extended;

begin

readln(k);

while k-t>=0 do

begin

inc(i);

t:=t+1/i;

end;

writeln(i);

end.

这是题？

var

i,k:longint;

tm:extended;

begin

readln(k);

while k-tm>=0 do

begin

inc(i);

tm:=tm+1/i;

end;

writeln(i);

end.

#include

int main ()

{double s=0.0,n;

int i=1,k;

scanf ("%d",&k);

while (s

编译通过...

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

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

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

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

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

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

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

program a1;

var i,k:longint;

he:real;

begin

read(k);

he:=0;

for i:=1 to 1000000000 do

begin

he:=he+1/i;

if he> k then

break;

end;

write(i);

end.

嘻嘻!!!!!!

上下手!!!!!!!!

program ex;

var sn:extended;

i,k,n:longint;

begin

readln(k);

n:=0;sn:=0;

repeat

inc(n);

sn:=sn+(1/n);

until sn>k;

writeln(n);

end.

program vp1127;

const

n=10000000;

var

k,i:longint;

s:real;

begin

read(k);

s:=0;

for i:=1 to n do

begin

s:=s+1/i;

if s>k

then

begin

write(i);

exit

end

end

end.