这道题我做过.程序如下:
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
这道题我做过.程序如下:
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