viết chong trình tìm số tự nhiên n lớn nhất sao cho tổng : 1 + $\frac{1}{2}$ + $\frac{1}{3}$ + … +$\frac{1}{n}$ không vượt quá 2,123 sao đó đếm số

0 bình luận về “viết chong trình tìm số tự nhiên n lớn nhất sao cho tổng : 1 + $\frac{1}{2}$ + $\frac{1}{3}$ + … +$\frac{1}{n}$ không vượt quá 2,123 sao đó đếm số”

1. uses crt;
   var s:real; n:longint;
   begin
   clrscr;
      while s<=2.123 do
         begin
            inc(n);
            s:=s+1/n;
         end;
      writeln(n-1);
   readln
   end.

   Bình luận

2. uses crt;

   var S:real;

         N:integer;

   begin

           S:=0;

           N:=1;

            while S<=2123 do begin

             S:=S+1/N; N:=N+1; end;

           writeln(‘Ket qua la:’,S:8:3);

           writeln(‘N se la:’,N:8:3);

           readln

   end.

   Bình luận