编写程序1／（1＊2）＋1／（2＊3）＋1／（3＊4）＋．．．＋1／(n(n+1)的值

1/(1*2)+1/(2*3)+...+1/(n(n+1))
=1-1/2+1/2-1/3+...+1/n-1/(n+1)
=1-1/(n+1)
下面就编程吧，应该可以很简单编出来了。而且这样不使用循环，可以节约程序占用资源，优化代码结构

//Pascal Program
var i,n:integer;
sum:real;
begin
readln(n);
sum:=0;
for i:=1 to n do
begin
sum:=sum+1/(i*(1+i))
end;
end.

//VB Program
private function Count(n as integer) as double
dim i as integer
count=0

for i=1 to n step 1
count=count+1/(i*(i+1))
next i
end function

//C Program
int count(int n)
{
int i;
double sum;

for (i=0;i++;i=n)
sum=sum+1/(i*(i+1));
return 0;
}