Question

18.求S= 1-1/2 +1/3-1/4+1/5-1/6+ ……（求前N项的和)

Answer 1

program a1;

var i,n,a:longint;

s:real;

begin

readln(n);

a:=1;

for i:=1 to n do

begin

s:=s+a*(1/i);

a:=-a;

end;

writeln(s：2：5); ｛取两位整数，保留6位小数｝

end.

自己写的