点这里查看
讨论 / 注意数据类型
will 2008-03-27 07:48:00
点我顶贴 收藏 删除
看过王建德老师讲义的同学应该知道,

这道题用extended类型超简单:

program rq66(input,output)；

var

k:integer；

sn,n:extended；

begin

sn:=0；n:=0；

readln(k)；

while sn<=k do

begin

n:=n+1；

sn:=sn+1/n；

end；

write(round(n))；

end.

#1 fjxmlhx@2008-03-04 05:17:00
回复 删除
赞。。

估计当时没这类型（不知道?）

#2 破晓@2008-03-27 07:48:00
回复 删除
= =！ 直接longint。。k才15..
查看更多回复
提交回复