a) $B1:$ Nhập n;

    $B2:$ i←1, nếu i<=n thì chuyển $B3$, Ngược lại chuyển $B4$;

    $B3:$ i←i+1, rồi quay lại $B2$;

    $B4:$ T←T+1/i*(i+3);

    $B5:$ Thông báo kết quả và kết thúc thuật toán.

b) Chương trình:

program Cau_1;

uses crt;

var n,i: integer;

      T: real;

Begin

         clrscr;

         write('Nhap n: '); readln(n);

         i:=1;

         while i<=n do

         begin

                  T:=T+1/i*(i+3);

                  i:=i+1;

         end;

         write('T = ',T:2:2);

         readln

End.

a)

B1: Nhập số nguyên n

B2: i←1;   T=0;

B3: Nếu i>n thì chuyển tới B5.

B4: T←T+1/(i*(i+1));  i←i+1;   Quay lại B3

B5: In T và kết thúc.

b) Chương trình:

program tong_T;

uses crt;

var i,n:integer;

     T:real;

begin

       clrscr;

       write('Nhap n: ');   readln(n);

       i:=1;   T:=0;

       while i<=n do

              begin

                     T:=T+1/(i*(i+1));

                     i:=i+1;

              end;

       write('T= ',t:0:3);

       readln;

end.