pascal中用分数从1⼀2加到100⼀101怎么算

2026年09月08日 18:56

有6个网友回答

网友（1）：

function sum: real;
bgin
integer: i, s;
s:=0;
for i:=1 to 100 do
s:=s + i / (i +1);
return s;
end;

网友（2）：

var
i:integer;
sum:extended;
begin
sum:=0;
for i:=1 to 100 do sum:=sum+i/(i+1);
write(i);
end.

网友（3）：

program p1;
var
i:integer;
s:sxtended;
begin
s:=0;
for i:=1 to 100 do
s:=s+i/(i+1);
write(s);
end.

网友（4）：

s:=1;
for i:=1 to 100 do
begin
s:=s/i;
end;
writeln(s:0:1);

网友（5）：

是 1/2 +1/2+1/2.....???
还是 1/2+1+2+3...+100+101

网友（6）：

是不是1/2+2/3+3/4+…+99/100+100/101
我应该会做（本人绝非打酱油）