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.