Viết Chương Trình S=1+1/2+1/3+…+1/n với số n là số tự nhiên được nhập từ bàn phím?

0 bình luận về “Viết Chương Trình S=1+1/2+1/3+…+1/n với số n là số tự nhiên được nhập từ bàn phím?”

1. var i,n: integer;

          s:real;

   begin

   write(‘Nhập n: ‘); readln(n);

   i:=1;

   repeat 

   s:=s+1/i;

   i:=i+1;

   until i=n;

   write(‘s =‘, s:0:4);

   readln

   end.

   Bình luận

2. program bt;

   uses crt;

   Var i , n : integer;

   S : real;

   Begin

   write (‘n=’) ; read (n);

   S:= 0;

   For i:=1 to n do S:= S + 1/i;

   Write;

   Readln;

   End.

   xin 5sao và tlhn nha bạn:3
   

   !học tốt!
   

   @Dinosieucute 

   Bình luận