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

Question

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

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.
自己写的