Pascal【入门】编程求解1+1/2+1/3+...+1/n

题目描述：

读入一个数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.