oj1021编程求1+1/2+1/3+...+1/n怎么做?Pascal
var
n,i:longint;
s:double;
begin
s:=0;
readln(n);
for i:=1 to n do
s:=s+ 1 / i;
writeln(s:0:3);
end.
下一篇:我的电脑测试结果是好还是坏?
热门标签:
var
n,i:longint;
s:double;
begin
s:=0;
readln(n);
for i:=1 to n do
s:=s+ 1 / i;
writeln(s:0:3);
end.
下一篇:我的电脑测试结果是好还是坏?