Tổng A=1+1/2+1/3+1/4+…+1/n. Viết chương trình nhập số thực b. Tìm số n sao cho tổng A nhỏ nhất lớn hơn b, khi đó tổng sẽ bằng bao nhiêu?

0 bình luận về “Tổng A=1+1/2+1/3+1/4+…+1/n. Viết chương trình nhập số thực b. Tìm số n sao cho tổng A nhỏ nhất lớn hơn b, khi đó tổng sẽ bằng bao nhiêu?”

1. program oken;
   uses crt;
   var n,i: longint;
       a,b: real;
   begin
       clrscr;
       write(‘Nhap n: ‘); readln(n);
       a:=0;
       for i:=1 to n do
           a:=a+1/i;
       writeln(‘Tong A: ‘,a:0:3);
       write(‘Nhap so thuc B: ‘); readln(b);
       while a<=b do
           begin
               i:=i+1;
               a:=a+1/i;
           end;
       writeln(‘So n can tim: ‘,i);
       writeln(‘Tong A moi: ‘,a:0:3);
       readln;
   end.

   Bình luận