tính T với n nhập từ bàn phím: T=1+1/2+1/5+…+1/n cho n=15;n=30

0 bình luận về “tính T với n nhập từ bàn phím: T=1+1/2+1/5+…+1/n cho n=15;n=30”

1. uses crt;
   var i,n:integer; t:real;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      t:=0;
      while i<=n do
      begin
         i:=i+1;
         if i mod 2 <> 0 then t:=t+1/i;
      end;
      write(‘T=’,T:4:2);
      readln
   end.

   Bình luận