Viết chương trình tính X=1+1/2+1/3+1/4+…1/n,n được nhập từ bàn phím

0 bình luận về “Viết chương trình tính X=1+1/2+1/3+1/4+…1/n,n được nhập từ bàn phím”

1. Var i , n : integer ;

   S : real;

   Begin

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

   S:= 0;

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

   Writeln (S);

   Readln;

   End.

   Bình luận

2. var s,j:real;i,n:longint;
   begin
           read(n);
           s:=0;
           for i := 1 to n do
           begin
                   j:=i;
                   s:=s+(1/j);
           end;
           writeln(s);
   end.

   Bình luận