编译通过...

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

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

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

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

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

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

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

水水水水水水水水水水水水水水水水水水水

水水水水水水水水水水水水水水水水水水水

水水水水水水水水水水水水水水水水水水水

水水水水水水水水水水水水水水水水水水水

水水水水水水水水水水水水水水水水水水水

include

int main()

{

double s=1.0;long k,i=1;

scanf("%d",&k);

while (s

黄河之水……

直接模拟

不过 那位大牛指点指点

如果……

k变大 超过20 ……

时间复杂度似乎是指数级的……

有何高招

小生orz

囧

var

k,i,a,c,n:longint;

sn:real;

begin

assign(input,'sum.in');

reset(input);

assign(output,'sum.out');

rewrite(output);

read(k);

i:=1;

sn:=k;

repeat

sn:=sn-1/i;

if sn

怎么不超时啊

这辈子的水都白喝了，做了这题才理解到水的真谛

A+B Problem······

#include

main()

{

long k,n;

double sn;

scanf("%ld",&k);

for(n=2;n=k)

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

}

我本以为事关高精度等重大诡异问题。。。

原来纯水

编译通过...

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

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

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

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

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

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

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

var

s:double;

i,n,k:longint;

begin

readln(k);

n:=1; s:=1;

while s

program lc001;

var s,n,k,a,b,c:longint;

r:real;

begin

readln(k);

n:=0;

r:=0;

while r

// vijos 1127.cpp : 定义控制台应用程序的入口点。

//

#include

using namespace std;

long long num,k;

double s;

int main()

{

cin>>k;

while(s

var

sun:real;

k,i:longint;

begin

readln(k);

i:=0;

repeat

inc(i);

sun:=sun+1/i;

until sun>=k;

writeln(i);

end.

var i,m,n,k:longint;

s:real;

begin

readln(k);

while s

program project1;

var

a:array[1..15]of longint;

k:longint;

begin

a[1]:=2;

a[2]:=4;

a[3]:=11;

a[4]:=31;

a[5]:=83;

a[6]:=227;

a[7]:=616;

a[8]:=1674;

a[9]:=4550;

a[10]:=12367;

a[11]:=33617;

a[12]:=91380;

a[13]:=248397;

a[14]:=675214;

a[15]:=1835421;

readln(k);

writeln(a[k]);

end.

秒杀

program p1127(input,output);

var

k:integer;

i:longint;

s:real;

begin

readln(k);

s:=0;

i:=0;

while s

var sn:real;

k:integer;

n:longint;

begin

read(k);

sn:=0;

n:=0;

repeat

inc(n);

sn:=1/n +sn;

until sn>k;

writeln(n);

end.

program p1127;

var

sn:real;

k:integer;

n:longint;

begin

read(k);sn:=0;n:=0;

repeat

inc(n);

sn:=1/n+sn;

until sn>k;

writeln(n);

end.

program P_1;

var

k,i:longint;

s:real;

begin

readln(k);

i:=0;

repeat

inc(i);

s:=s+1/i;

until s>k;

writeln(i);

end.

编译通过...

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

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

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

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

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

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

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

这道题很简单的，我很菜哩，都过了。嘻嘻～～

7 行过 唯美

var

i,k,n,m:longint; j:real;

begin

read(k);n:=1; j:=0;

while j