viết chương trình tính tổng T=1+1/3+1/5+–..+1/2n-1 (n nhập từ bàn phím ) (1 là biến lưu các số 1,3,5,…2n-1) Chú ý sử dụng lệnh while-do

program tinh_tong;

uses crt;

var n,i:integer;

      t:real;

begin

     clrscr;

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

     i:=1;   t:=0;

     while i<=n do

          begin

               t:=t+1/(2*i-1);

               i:=i+1;

          end;

     write(‘T= ‘,t:2:2);

     readln;

end.