7 行过 唯美

var

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

begin

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

while j

农夫山泉

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

var n,k:longint;

rs:double;

begin

read(k);

rs:=0;

for n:=1 to maxlongint do

begin

rs:=rs+1/n;

if rs>k then break;

end;

write(n);

end.

编译通过...

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

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

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

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

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

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

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

program p1127(input,output);

var n,k:longint;

zs:real;

begin

readln(k);

zs:=0;

n:=0;

while zs

#include

using namespace std;

int main ()

{

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

int k;

cin>>k;

cout

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

begin

read(n);i:=1;

repeat

k:=k+1/i;

i:=i+1;

o:=o+1;

until k>n;

write(o);

end.

var

k,n:longint;

c:extended;

begin

readln(k);

while c

program dsa;

var k:integer;

s,n:real;

begin

read(k);

n:=1;

s:=1;

while s

var k, n, sn : real;

a:longint;

begin

readln(k);

sn:=0;

for a:= 1 to 1000000 do

begin

sn:=sn+1/a;

if sn >k then

begin

writeln(a);

halt;

end;

end;

end.

囧，被longint搞的wa了好几次，AC率暴降

program ji(input,output);

var k,n:longint;

sum:real;

begin

read(k);

sum:=0;

n:=1;

repeat

sum:=sum+1/n;

n:=n+1;

until sum>k;

write(n-1);

end.

var

s:real;

i,n,k:integer;

begin

readln(k); n:=1;

n:=k;

repeat

　　s:=0;

　　for i:=1 to n do

　　s:=s+1/i;

　　if s>k then

writeln(n);

inc(n);

until s>k;

end.

#include

using namespace std;

int main()

{

int k,i=0;cin>>k;

double sum=0;

while(sum

#include

int main()

{

long n,k;

double sum=1.0;

scanf("%ld",&k);

for(n=2;;n++)

{

sum+=1.0/(double)n;

if(sum>=(double)k){printf("%ld",n);break;}

}

}

MS全部都得用long／double，还有强制类型转换

我这个程序好像很诡异，死循环，哈哈

program s2;

var k,n:longint;

sn,i:real;

begin

sn:=0;

n:=0;

readln(k);

while sn

wa*3......我的ac率.....555555555.....

第一次直接写了1/n,实际上n是长整，1/n=0.....改成1./n

第二次60分，float满足不了10以后的k值，遂改成double

第三次最可悲，居然顺手打上了getche();.....全部超时...

附正确答案：

#include

#include

main()

{

double sn=0;

int k;

long n=1;

scanf("%d",&k);

while(sn

编译通过...

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

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

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

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

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

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

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

var

s:real;

i,n,k:integer;

begin

readln(k); n:=1;

n:=k;

repeat

s:=0;

for i:=1 to n do

s:=s+1/i;

if s>k then

writeln(n);

inc(n);

until s>k;

end.

program jishu;

var

i,n:longint;

k,a,j,s:real;

begin

read(k);

a:=0;

i:=0;

while a

var sn:real;n,k:longint;

begin

read(k);

sn:=0;

n:=1;

repeat

sn:=sn+1/n;

n:=n+1;

until sn>k;

write(n-1);

end.