UC知道急急急！！！跪求各路高手
来源：百度知道 编辑：UC知道 时间：2024/07/02 05:08:50
编pascal程序解决下列问题
求S= 1-1/2 +1/3-1/4+1/5-1/6+ ……（求前N项的和)
求S= 1-1/2 +1/3-1/4+1/5-1/6+ ……（求前N项的和)
program asf;
var a,b,c:integer;
s:real;
begin
b:=1;
s:=0;
readln(a);
for c=1 to n do
begin
s:=s+b*c;
b:=-1*d;
end;
writeln('s=',s);
end.
没调试，很久没用了，可能有点错的地方，但大体应该没问题