Sử dụng ngôn ngữ lập trình Pascal viết chương trình tính tổng T với n được nhập từ bàn phím dùng lệnh while …do t = 1/2 + 2/3 + 3/4 +-+n/n+1

program tinh_tong;

uses crt;

var n,i:integer;

      t:real;

begin

      clrscr;

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

      t:=0;  i:=1;

      while i<=n do

            begin

                  t:=t+i/(i+1)

                  i:=i+1;

            end;

      write(‘Tong la: ‘,t:0:2);

      readln;

end.