Thuật toán
Input : nhập n
Output : tính tổng A
Bước 1 : nhập n
Bước 2 : cho biến i chạy từ 1 đến n
Bước 3: tongA<- tongA+ (1/(i*(i+2))
Bước 4: in ra màn hình kết quả
Bước 5 : kết thúc thuật toán
Chương trình
Program tinnhtong;
uses crt;
var i,n:integer;
tongA: real;
begin
clrscr;
tongA:=0;
write('nhap n = '); readln(n);
for i:=1 to n do
tongA:=tongA+ (1/(i*(i+2)) );
write('Tong A can tim la',tongA:2:2);
readln
end.