Viết chương trình nhập số thực a và tìm ra số tự nhiên n nhỏ nhất sao cho: 1 + 1/2 + 1/3 +-.+ 1/n > a

0 bình luận về “Viết chương trình nhập số thực a và tìm ra số tự nhiên n nhỏ nhất sao cho: 1 + 1/2 + 1/3 +-.+ 1/n > a”

1. uses crt;

   var a,s: real;

            i: integer;

   begin

   clrscr;

   write (‘nhap a: ‘);  readln (a);

   for i:=1 to n do s:=s+(1/i);

   writeln (‘tong la: ‘,s:1:2);

   readln;

   end.

   Bình luận

2. program tong;

   uses crt;

   var n:integer;

          a:real;

   begin

   clrscr;

   write(‘Nhap a: ‘);   readln(a);

   n:=0; t:=0;

   while t<=a do

    begin

     n:=n+1;

     t:=t+1/n;

    end;

   write(‘So nho nhat thoa man la: ‘,t);

   readln

   end.

   Bình luận