Mô tả thuật toán:
B1:Nhập N
B2: i---->0
B3: For k----->1 to n do i------>i+1/k(k+2)
B4: Thông báo Kết quả của i
B5: Kết thúc thuật toán
Chương trình
Program BTH;
uses Crt;
var n,k:integer;
i:real;
Begin
clrscr;
Write('Nhap so n: ');readln(n);
For k:=1 to n do
i:=i+1/k*(k+2);
Writeln('Tong cua day so tren la: ',i:4:2);
readln;
End.