作业帮求 1-1/2+1/3-1/4+1/5-1/6+……+1/99-1/100的值,要求保留小数点后面三位（pascal
来源：学生作业帮助网 编辑：作业帮 时间：2024/10/06 18:39:47
x){IPPHPH iS ma@Y-OXdSg>lM;N{9wѓ OQXcTO[ l+Ɏ{fRs2u2JRSIy`VD,J/RJnRHT ט ՛aei[Xk%&?m|g<ٱ f=3 <;P 2B
求 1-1/2+1/3-1/4+1/5-1/6+……+1/99-1/100的值,要求保留小数点后面三位（pascal
求 1-1/2+1/3-1/4+1/5-1/6+……+1/99-1/100的值,要求保留小数点后面三位（pascal
求 1-1/2+1/3-1/4+1/5-1/6+……+1/99-1/100的值,要求保留小数点后面三位（pascal
程序如下：
var s:real; i,j:integer;
begin
s:=0;
j:=1;
for i:=1 to 100 do
begin
s:=s+j/i;
j:=j*-1;
end;
writeln(s:0:3);
end.
输出结果为：
0.688