I love this kind of problem...

program P1127;

var

sn:real;

k:integer;

n:longint;

begin

readln(k);

n:=0;

sn:=0;

repeat

inc(n);

sn:=sn+1/n;

until sn>k;

writeln(n);

end.

呵呵，刚学 pascal 20天

这题......没1遍AC且程序多于10行的自己想想吧...

我终于碰到一题EASY的了

编译通过...

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

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

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

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

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

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

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

var

sn,n:extended;

k:longint;

begin

read(k);

sn:=1;

n:=1;

while sn

var k:shortint;

n:longint;

sn:extended;

begin

readln(k);

sn:=0;

n:=0;

repeat

inc(n);

sn:=sn+1/n;

until sn>k;

writeln(n);

end.

var

k,i:integer;

x:real;

begin

read(k);

i:=1;

repeat

x:=x+1/i;

if x>k then break;

inc(i)

until 1

const

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

(

2,

4,

11,

31,

83,

227,

616,

1674,

4550,

12367,

33617,

91380,

248397,

675214,

1835421

);

var

n:longint;

begin

readln(n);

writeln(a[n]);

end.

第一次交给Blaze，编译错误

第二次原封不动交给Puppy，AC

此题做后感：

写C越来越有感觉了

program ex;

var

s,i:real;

n,k:integer;

begin

readln(k);

s:=0;n:=0;i:=0;

while s

var

K: Byte;

n: Longint;

Sn: Extended;

begin

Readln(K);

Sn := 0; n := 0;

Repeat

　　Inc(n);

　　Sn := Sn + 1 / n;

Until Sn > k;

Writeln(n);

end.

我服了！

AC暴跌

就一个问题

出在数学逻辑上

while sum

编译通过...

├ 测试数据 01：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 02：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 03：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 04：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 05：答案错误...　├ 标准行输出

　├ 错误行输出

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

Unaccepted 有效得分：0 有效耗时：0ms

我是猪!!@! 数据都少了1!!

program c1;

var

K: Byte;

n: Longint;

Sn: Extended;

begin

Readln(K);

Sn := 0; n := 0;

Repeat

Inc(n);

Sn := Sn + 1 / n;

Until Sn > k;

Writeln(n);

end.

var

k,n,a:longint;

s:real;

begin

read(k);

s:=0;

n:=0;

begin

repeat

inc(n);

s:=s+1/n;

until s>k;

end;

write(n);

end.

var

a,b,c,d:longint;

begin

readln(d);

c:=0;

for b:=1 to 10000 do

begin

a:=a+1/b;

if a>d

then if c=0

then c:=b;

end;

writeln(b);

end.

弱~~~~~~~

var

n,k:longint;

m:real;

begin

readln(k);

n:=0;

m:=0;

repeat

inc(n);

m:=m+1/n;

until m>k;

writeln(n);

end.

var n:longint;

k,s:extended;

begin

readln(k);

n:=0;

s:=0;

repeat

n:=n+1;

s:=s+1/n;

until s>k;

writeln(n);

end.

唉，要是比赛能这样，人人都满分了