2002年分区联赛普组组之一 级…
来源:互联网 发布:ucloud mac 编辑:程序博客网 时间:2024/04/29 21:12
Description
已知:Sn=1+1/2+1/3+…+1/n。显然对于任意一个整数K,当n足够大的时候,Sn大于K。
现给出一个整数K(1<=k<=15),要求计算出一个最小的n;使得Sn>K。
Input
k
Output
n
Sample Input
1
Sample Output
2
解题思路:读入数据,用while型循环,最后输出累加的次数即可。
程序:
var
n:longint;
k,sn:real;
begin
read(k);
n:=0;
while sn<=k do
begin
inc(n);
sn:=1/n+sn;
end;
writeln(n);
end.
0 0
- 2002年分区联赛普组组之一 级…
- 2002年分区联赛提高组之一 均…
- 2001年分区联赛普级组之一 数…
- 2004年分区联赛普级组之一 不…
- 2005年分区联赛普级组之一 陶陶摘…
- 2006年分区联赛普级组之一 明明的…
- 2000年分区联赛普级组之一 计…
- 2003年分区联赛普级组之一 乒乓球
- 1997年分区联赛普级组之一 统计
- 2004年分区联赛提高组之一 津津的…
- 2005年分区联赛提高组之一 谁拿了…
- 2002年分区联赛普级组之四 过河卒
- 2002年分区联赛普级组之三 产生数
- 2001年分区联赛普级组之二 最…
- 2001年分区联赛普级组之四 装…
- 1997年分区联赛普级组之三 二进制…
- 2012年分区联赛普级组第一题 …
- 2012年分区联赛普级组第一题 …
- 2001年分区联赛普级组之一 数…
- 2001年分区联赛普级组之二 最…
- 2001年分区联赛普级组之四 装…
- 2001年分区联赛提高组之二 数…
- TCP三次握手四次挥手过程
- 2002年分区联赛普组组之一 级…
- 2002年分区联赛普级组之四 过河卒
- 2002年分区联赛提高组之一 均…
- 2003年分区联赛普级组之一 乒乓球
- 2003年分区联赛普级组之四 麦森数
- 2004年分区联赛普级组之一 不…
- 2004年分区联赛提高组之一 津津的…
- 2004年分区联赛提高组之二 合…
- 2005年分区联赛普级组之一 陶陶摘…