tính tổng và tích câu lệnh sau a’ A= 1+1/2+1/3+…+1/n (n đc nhập từ bàn phím) b’ A= 1/1*3+1/2*4+1/3*5+-+1/n*(n+2) (n nhập từ bàn phím)

0 bình luận về “tính tổng và tích câu lệnh sau a’ A= 1+1/2+1/3+…+1/n (n đc nhập từ bàn phím) b’ A= 1/1*3+1/2*4+1/3*5+-+1/n*(n+2) (n nhập từ bàn phím)”

1. a)

   program tinhtong;

   uses crt;

   var n,i:integer;

         A:real;

   begin

        clrscr;

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

        A:=0;

        for i:=1 to n do

             A:=A+1/i;

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

        readln;

   end.

   b)

   program tinhtong;

   uses crt;

   var n,i:integer;

         A:real;

   begin

        clrscr;

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

        A:=0;

        for i:=1 to n do

             A:=A+1/(i*(i+2));

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

        readln;

   end.

   Bình luận