Viết ct tính tổng T= 1/3+1/4+1/5…+1/20 viết ct tính tích S= 10 * 11* 12*-*n

a)

program tinhtong_T;

uses crt;

var t:int64;

      i:byte;

begin

        clrscr;

        t:=0;

        for i:=3 to 20 do

                t:=t+1/i;

        write(‘T= ‘,t:2:2);

        readln;

end.

b)

program tinhtich;

uses crt;

var n,i:byte;

      s:int64;

begin

        clrscr;

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

        s:=0;

        for i:=10 to n do

                s:=s+i;

        write(‘S= ‘,s);

        readln

end.