求吞吧的兄弟帮忙写个简单计算程序【吞噬星空吧】_百度贴吧

07月24日漏签0天

吞噬星空吧关注：1,355,246贴子：34,378,254

6回复贴，共1页

<返回吞噬星空吧

求吞吧的兄弟帮忙写个简单计算程序

只看楼主收藏回复

用 pascal 写。。
就是s=1+1/2+1/3+...+1/n，当n等于几时s＞11
求过程，谢谢！

送TA礼物

1楼2012-03-16 22:44回复

自己顶，求帮忙啊！！

2楼2012-03-16 22:45

不感兴趣

开通SVIP免广告

自己顶，求帮忙啊！！

3楼2012-03-16 22:46

自己顶，求帮忙啊！！

4楼2012-03-16 22:47

自己顶，求帮忙啊！！

5楼2012-03-16 22:48

var i,n:longint;
ans:extended;
begin
readln(n);
ans:=0;
for i:=1 to n do ans:=ans+1/n; writeln(ans);
end.

IP属地:安徽

6楼2012-03-16 22:56

收起回复

百度小说人气榜

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

贴吧热议榜

6回复贴，共1页

<返回吞噬星空吧

发表回复

发贴请遵守贴吧协议及“七条底线”贴吧投诉

内容:

使用签名档查看全部

发表

保存至快速回贴