题目描述:
读入一个数n,编程求1+1/2+1/3+...+1/n。
输入:
输入一行,只有一个整数n(1<=n<=200) 。
输出:
输出只有一行(这意味着末尾有一个回车符号),包括1个实数。(保留3位小数)
样例输入:
5
样例输出:
2.283
代码实现:
var n,i:longint; s:real;
begin
readln(n);
for i:=1 to n do
s:=s+1/i;
write(s:0:3);
end.