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)

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.