int main()

{

int k,n=1;

float sn=0.0;

scanf("%d",&k);

while(sn

program jishu;

var n,k,i:longint;

sn:real;

begin

readln(k);

sn:=0;

n:=0;

while sn

信心提升题

k小于10时可以用integer

小提示； 该题中 n 要定义为长整型 否则你只有60分；

n会越界益出；

var k,n:integer;

sn:real;

begin

read(k);

sn:=0;

for n:=1 to 2 do

repeat

sn:=sn+(1/n);

until sn>k;

write(n);

readln();

readln();

end.

program p1127;

var

s:real;

n,k:longint;

procedure init;

begin

readln(k);

s:=0;

end;

procedure doit;

begin

n:=0;

while s

编译通过...

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

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

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

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

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

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

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

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

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

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

k,n:integer;sn:real;

begin

read(k);

n:=1;

sn:=0;

while sn

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.

program temp;

var a:array[1..10000]of real;

i,j,m,n,k,l,o,p:integer;

s:real;

begin

readln(n);

for i:=1 to 10000 do begin

s:=s+1/i;a[i]:=s;

end;

p:=1;

while a[p]

ACer一般是靠查表过得。

#include

using namespace std;

int main()

{

/*

FILE *fp;

fp = fopen( "D:/temp.txt", "w");

int k,n;

double ret;

for( k = 1; k k)

{

break;

}

}

fprintf( fp,"%d,", n);

}

fclose(fp);

return 0;*/

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

int k;

cin >> k;

cout

我真是太谢谢那位名叫狄家小寒的朋友了！(^o^)/

#include

main() {

double S=0.0,K;

int n=0;

scanf("%lf",&K);

for(;S

编译通过...

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

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

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

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

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

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

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

var k,n:longint;

sn:real;

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

var

k,s:longint;

l:real;

begin

readln(k);

s:=0;

l:=0;

while l