lucy-arron 2008-08-05 06:21:00
点我顶贴
收藏
删除
这一题我都提交了三次了，为什么每次都是no compiled呢？大虾们帮我看看吧！！
var n, s:real；
k :longint；
begin
read(k)；
n:=0； s:=0；
repeat
n:=n+1；
s:=s+1/n；
until s>k；
writeln(n:0:0)
end.
我在fp上都没问题啊，怎么到这就nc了呢？
#1 fjxmlhx@2008-07-05 19:58:00
2155
回复
删除
你家FP版本老了
var n, s:extended；
k :extended；
begin
read(k)；
n:=0； s:=0；
repeat
n:=n+1；
s:=s+1/n；
until s>k；
writeln(n:0:0)
end.
#3 pascalnew@2008-08-05 02:40:00
3347
回复
删除
var
n,k,s,i:real；
begin
readln(k)；
n:=0；
repeat
n:=n+1；
s:=s+1/n；
until s>k；
writeln(n:0:0)；
end.
#4 Wych@2008-08-05 03:07:00
3356
回复
删除
我也没事呀
我得源代码如下：
program rq66(input,output)；
var k:1..15；
s:real；
n:longint；
begin
read(k)；
n:=1；
s:=0；
while s<=k do
begin s:=s+1/n；
inc(n)；
end；
dec(n)；
write(n)；
end.