[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.