GIÚP MÌNH VỚI! MÌNH CẦN GẤP viết chương trình tính tổng T=1/2+1/4+1/6+…+1/2*n

0 bình luận về “GIÚP MÌNH VỚI! MÌNH CẦN GẤP viết chương trình tính tổng T=1/2+1/4+1/6+…+1/2*n”

1. uses crt;
   var T:real;
       i,n:integer;
   begin
      clrscr;
      T:=0;
      write(‘Nhap n: ‘); readln(n);
      for i:=1 to n do
      T:=T+1/(2*i);
      writeln(‘Tong la: ‘,T:4:2);
      readln
   end.

   Bình luận