Tính tổng A=...+1/(n*(n+2))+...

PROGRAM CT41;
USES crt;
VAR i,n: BYTE;
Tong: REAL;
BEGIN
Writeln('Chuong trinj tinh tong A=...+1/(*n(n+2))+... ');
Write('Ban muon n bang bao nhieu : '); Readln(n);
Tong:=0;
FOR i:=1 TO n DO Tong:=Tong+1/(i*(i+2));
Writeln('A= ',Tong:6:2);
Readln
END.

Download: http://www.mediafire.com/?wf15hx2v1xe7wye