Viết chương trình tìm số nguyên n nhỏ nhất để S > 5.25 biết S = 1 + (1/2) + (1/3) +…+ (1/n)

0 bình luận về “Viết chương trình tìm số nguyên n nhỏ nhất để S > 5.25 biết S = 1 + (1/2) + (1/3) +…+ (1/n)”

1. program tong_thoaman;
   uses crt;
   var s:real;
       n:integer;
   begin
           clrscr;
           s:=0; n:=0;
           while S<=5.25 do
                   begin
                           n:=n+1;
                           S:=S+1/n;
                   end;
           write(‘n nho nhat la: ‘,n,’ va khi do S= ‘,s:0:2);
           readln;
   end.

   Bài này mình chạy rồi, n=107

   Bình luận