计算 1/1 + 1/2 + 1/3 + …… + 1/n 的值,输出保留 3 位小数pascal

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/15 12:06:50
计算 1/1 + 1/2 + 1/3 + …… + 1/n 的值,输出保留 3 位小数pascal
x){nu 4|Vӆ=:/M~ھϧT0VxgS7$''$S<;껰,L[&Xٙ:Y:yVy%E

计算 1/1 + 1/2 + 1/3 + …… + 1/n 的值,输出保留 3 位小数pascal
计算 1/1 + 1/2 + 1/3 + …… + 1/n 的值,输出保留 3 位小数pascal

计算 1/1 + 1/2 + 1/3 + …… + 1/n 的值,输出保留 3 位小数pascal
var
s:real;
i,j,n:integer;
begin
s:=0;
j:=1;
for i:=1 to n do
begin
s:=s+j/i;
j:=j*-1;
end;
writeln(s:0:3);
end.