用循环语句描述1—1/2+1/3——1/4+.+1/99—1/100的算法

分类: 作业答案 • 2021-12-31 11:40:28

问题描述：

用循环语句描述1—1/2+1/3——1/4+.+1/99—1/100的算法
或者用中文告诉我算法~

答

var
a,i:integer;
s:real;
s:=0;
a:=1;
for i:=1 to 100 do begin
s:=s+ 1/a;
a:=a+1;
end;
writeln(s:5:5);
end.