var s,k,n:longint; Sn:real;

begin

read(k);

repeat

n:=n+1;

Sn:=Sn+1/n;

until Sn>k;

write(n);

end.

10行搞定的程序 这么水

开始没注意范围

我的AC啊

var

k, i : longint;

s : real;

begin

readln(k);

s := 0;

i := 1;

while s

我不是乖孩子………………

#include

#include

using namespace std;

int n,a[16]={0,2,4,11,31,83,227,616,1674,4550,12367,33617,91380,248397,675214,1835421};

int main()

{

scanf("%d",&n);

printf("%d",a[n]);

return 0;

}

看看 啥叫短代码………………谁更短？

这种思路n到30都没问题的，现场算出来，这时候没人限制时间，你让电脑算他一分钟，考试时骗分即可。（别拍，你敢说这不是最优算法？）

program jj;

var

n:longint;

k:integer;

s:real;

begin

read(k);

n:=0;s:=0;

repeat

inc(n);

s:=s+1/n;

until s>k;

write(n);

end.

定义范围10001的数组，赋初值0，挖掉部分为1，再从1到N，如果0就++

#include

using namespace std;

int main()

{double n=1,k,m=0;

cin>>k;

while(m

#include

using namespace std;

int main()

{double n=1,k,s=0,i=0;

cin>>k;

while(s

#include

using namespace std;

int main()

{

　　int k,i=0,s=0;

　　cin>>k;

　　while(s

var k,n:longint;

s :real;

begin

s:=0;

k:=0;

readln(n);

if (n>=1) and (n

var n,k:longint;

s :real;

begin

readln(k);

s:=0;

n:=0;

repeat

n:=n+1;

s:=s+1/n;

until s>k;

writeln(n);

end.

program abc;

var k,n:longint;

s:real;

begin

readln(k);

repeat

n:=n+1;

s:=s+1/n;

until s>k;

writeln(n);

end.

var

k:integer;

n:longint;

Sn:real;

begin

read(k);

n:=0;

Sn:=0;

while Sn

Vijos就像一个水桶，里面灌满了水题...

而人生就像一张茶几，上面摆满了悲剧...

#include

using namespace std;

int main()

{

double k,i=0,s=0;

cin>>k;

while (s

program p1127;

var

s:real;

k,n:longint;

begin

s:=0.0;n:=0;

readln(k);

while s

我悲剧了。

我被这道水题，给淹了

我的AC率啊...............

悲剧啊...........

var

s:double;

i,n,k:longint;

begin

readln(k);

n:=1; s:=1;

while s

#include

int main()

{int n=1;

int k;

double s=1;

scanf("%d",&k);

while(s

#include

#include

#include

using namespace std;

int main()

{

int n=1,k;

double s=0;

cin>>k;

for(;s

编译通过...

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

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

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

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

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

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

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

好一瓶纯净的白开水~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~