Viết chương trình sử dụng while..do tính tổng sau: A=1 + 1/2 + 1/3 +…+ 1/n (1/2,.. là 1 phần 2 ấy ạ tại em ko bt ghi saoo)

0 bình luận về “Viết chương trình sử dụng while..do tính tổng sau: A=1 + 1/2 + 1/3 +…+ 1/n (1/2,.. là 1 phần 2 ấy ạ tại em ko bt ghi saoo)”

1. program tinhtong;

   uses crt;

   var a:real;

         n,i:integer;

   begin

   clrscr;

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

   a:=0;    i:=1;

   while i<=n do

     begin

        a:=a+1/i;

        i:=i+1;

     end;

   write(‘A= ‘,a:2:2);

   readln

   end.

   Bình luận

2. var n, i: integer; A: real;
   begin
       write(‘Nhap so tu nhien n: ‘);
       readln(n);
       A:=0;
       for i:=1 to n do 
       begin
           A:=A+(1/i);
       end;
       write(‘Ket qua: ‘,A:0:2);
       readln
   end.

   Bình luận