点这里查看
讨论 / 为什么我的程序报错被零除
李一恒 2008-11-22 04:20:00
点我顶贴 收藏 删除
源代码：

var s,n:real；

i,k:integer；

begin

read(k)；

i:=0；

while s<=k do begin

i:=i+1

s:=s+1/i；

end；

write(i-1)；

end.

#1 Jollwish@2008-11-22 03:41:00
回复 删除
i定义为qword
#2 Jollwish@2008-11-22 03:43:00
回复 删除
我们团队人还真多...
#3 李一恒@2008-11-22 04:17:00
回复 删除
实在感谢！！！！

#4 李一恒@2008-11-22 04:17:00
回复 删除
请问你是哪个班的那个人？
#5 Jollwish@2008-11-22 04:20:00
回复 删除
8（13）
查看更多回复
提交回复