**INPUT: Số nguyên n

**OUTPUT: Tổng `A=1/(1*3)+1/(2*4)+1/(3*5)+...+1/(n(n+2)`

**Thuật toán:

B1: Nhập n

B2: i←1; A←0

B3: A←A+1/(i*(i+2); i←i+1

B4: Nếu i<=N thì quay lại bước 3

B5: Xuất A và kết thúc

**Viết chương trình:

Program baitap;

Uses crt;

Var n,i:integer;

      A:real;

Begin

Clrscr;

Write('n='); Readln(n);

A:=0;

For i:=1 to n do A:=A+1/(i*(i+2));

Writeln('A=',A:5:2);

Readln

End.

* Xác định bài toán :

- Input : số n 

- Output : tổng A

* Mô tả thuật toán :

- Bước 1 : nhập số n 

- Bước 2 : i ← 1, A ← 0

- Bước 3 : nếu i > n thì xuất ra giá trị A rồi kết thúc

- Bước 4 : 

- Bước 4.1 : A ← A + 1 / (i * (i + 2))

- Bước 4.2 : i ← i + 1 quay lại bước 3

* Viết chương trình :

uses crt;

var i, n : integer; A : real;

begin

clrscr;

write('nhap so n : '); readln(n);

for i := 1 to n do 

A := A + 1 / (i * (i + 2));

writeln('A = ', A : 2 : 3);

readln

end.