题目

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

提问时间：2021-01-15

答案

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.