作业帮求 1-1/2+1/3-1/4+1/5-1/6+……+1/99-1/100的值,要求保留小数点后面三位（pascal
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/06 10:53:52
求 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