Tính tổng F =1+1/2+1/3+1…+1/n

0 bình luận về “Tính tổng F =1+1/2+1/3+1…+1/n”

1. program tong_F;

   uses crt;

   var n,i:integer;

         F:real;

   begin

           clrscr;

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

           F:=0;

           for i:=1 to n do

                   F:=F+1/i;

           write(‘F= ‘,f:2:2);

           readln;

   end.

   Bình luận

2. uses crt;

   var f: real;

   i,n: longint;

   begin

   clrscr;

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

   for i:=1 to n do f:=f+(1/i);

   writeln (‘tong la: ‘,f:1:2);

   readln;

   end.

   Bình luận