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

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

人气：382 ℃　时间：2020-05-13 05:45:22

解答

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.