Cho số thực a lập trình tìm số nguyên dương n nhỏ nhất thỏa mãn 1+1/2+1/3+…+1/n>a

0 bình luận về “Cho số thực a lập trình tìm số nguyên dương n nhỏ nhất thỏa mãn 1+1/2+1/3+…+1/n>a”

1. Program BTT;
   Uses crt;
   Var a,s: extended;
       n: longint;
   Begin
           Clrscr;
           Write(‘Nhap a: ‘); Readln(a);
           s:=0;
           n:=1;
           While s<=a do
           Begin
                   s:=s+1/n;
                   inc(n);
           End;
           Write(‘N = ‘,n);
           Readln
   End.

   Bình luận