Cho S = 1 + 1/2 + 1/3 + … + 1/n. Nhập vào số thực A hãy tìm số nguyên dương n nhỏ nhất sao cho S > A Giúp mình vs Thanks!

0 bình luận về “Cho S = 1 + 1/2 + 1/3 + … + 1/n. Nhập vào số thực A hãy tìm số nguyên dương n nhỏ nhất sao cho S > A Giúp mình vs Thanks!”

1. uses crt;
   var tong: real;
       sonho: real;
       i: real;
   begin
        clrscr;
        write(‘Nhap so ma ban can do chinh xac: ‘);
        readln(sonho);
        while (tong < sonho) do
        begin
             i:=i+1;
             tong:=tong+(1/i);
        end;
        write(‘Ket qua: ‘,i:0:0);
        readln;
   end.

   Bình luận