Hãy viết chương trình tìm giá trị của N thỏa mãn biểu thức sau: 1+ 1/2+1/3+…+1/N >a Biết a được nhập từ bàn phím. Giúp mình với

0 bình luận về “Hãy viết chương trình tìm giá trị của N thỏa mãn biểu thức sau: 1+ 1/2+1/3+…+1/N >a Biết a được nhập từ bàn phím. Giúp mình với”

1. uses crt;
   var n,a:longint; s:real;
   begin
   clrscr;
      write(‘a=’);readln(a);
      while s<=a do
        begin
           inc(n);
           s:=s+1/n;
        end;
      writeln(‘n= ‘,n);
   readln
   end.

   Bình luận