Viết chương trình tính s=1+1/2+1/3+…+1/N+… cho đến khi 1/N<0,01

0 bình luận về “Viết chương trình tính s=1+1/2+1/3+…+1/N+… cho đến khi 1/N<0,01”

1. Em cũng thực sự không hiểu đề này cho lắm, nên em làm theo cách này, không biết đúng ý anh không.

   S=1 + 1/2 + 1/3 + … + 1/n

   Cộng cho đến khi nào mà n<0.01 thì dừng

   Chứ không nhập n

   —————-

   Program BTT;
   Uses crt;
   Var i: longint;
       s: extended;
   Begin
           Clrscr;
           s:=0;
           i:=1;
           While 1/i>0.01 do
           Begin
                   s:=s+(1/i);
                   i:=i+1;
           End;

           Write(‘S = ‘,s:0:2);
           Readln
   End.

   Bình luận