sử dụng câu lện while do viết chương trình tính tổng C= 1/3 + 1/6 + 1/9 +-.+ 1/3n

program bai_giai;

uses crt;

var n,i:integer;

      C:real;

begin

      clrscr;

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

      i:=1;  c:=0;

      while i<=n do

            begin

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

                  i:=i+1;

            end;

      write(‘C= ‘,c);

      readln;

end.