点这里查看
讨论 / 为什么被0除
zhujicheng 2013-02-08 02:45:00
点我顶贴 收藏 删除
program shu;

var n:integer;

k:1..15;

sn:real;

begin

readln(k);

n:=1;

while sn<k do

begin

sn:=1/n+sn;

n:=n+1;

end;

n:=n-1;

writeln(n);

end.

#1 LINSOFT@2012-06-23 05:10:00
回复 删除
program shu;

var n:longint;

k:1..15;

sn:real;

begin

readln(k);

n:=1;

sn:=0;

while sn<k do

begin

sn:=1/n+sn;

n:=n+1;

end;

n:=n-1;

writeln(n);

end.

把n 的integer改成longint就OK了。k的输入也要注意范围1 to 15.

#2 zhujicheng@2012-07-08 05:58:00
回复 删除
回复 沙发LINSOFT 的帖子

请问为什么要用longint

#3 a15130609301@2012-07-09 05:26:00
回复 删除
你猜
#4 毕业生开玩笑@2012-07-16 23:49:00
回复 删除
回复 地毯a15130609301 的帖子

无聊

#5 Eveil@2013-02-08 02:45:00
回复 删除
最好都用LONGINT 啊。。这是个好东西
查看更多回复
提交回复