[pascal][単純問題]多項式求和


質問:多項式の合計


タイトルの説明


多項式の説明は次のとおりです.
1 - 1/2 + 1/3 - 1/4 + 1/5 - 1/6 + ... 今、この多項式の前のn項の和を求めてください.

入力


入力データには正の整数が含まれており、各整数(n,n<=1000としてもよい)について、この多項式の前のn項の和を求める.

しゅつりょく


各試験例nについては、多項式の前のn項の和を出力する必要がある.各テストインスタンスの出力は1行を占め、結果は2桁の小数を保持します.

サンプル入力

2

サンプル出力

0.50

単純なシミュレーションでは、加減や変数タイプを混同しないでください.
var n,i:longint;     sum:real; begin     readln(n);     for i:=1 to n do       if i mod 2=1 then       sum:=sum+1/i       else       sum:=sum-1/i;     writeln(sum:0:2); end.