Viết chương trình: 1. T:=1 * 2 * 3 * 4 *…*n 2. S:=1+2+3+…+n 3. S:= 1+ 1/2 + 1/3 +1/4 +….+1/n Trong đó n là số nguyên dương được nhập từ bàn phím.

uses crt;

var s1,t,i,n: longint;

       s2: real;

begin

  clrscr;

   t:=1;

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

   for i:=1 to n do 

       begin 

         t:=t*i;   s1:=s1+i;  s2:=s2+1/i; 

       end;

writeln(t);   writeln(s);   writeln(s2:0:0);

readln;

end.

1. Program BTT;
Uses crt;
Var n,i: byte;
    s: qword;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=1;
        For i:=1 to n do
                s:=s*i;
        Write('S = ',s);
        Readln
End.

2. Program BTT;
Uses crt;
Var n,i: longint;
    s: qword;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0;
        For i:=1 to n do
                s:=s+i;
        Write('S = ',s);
        Readln
End.

3. Program BTT;
Uses crt;
Var n,i: longint;
    s: extended;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0;
        For i:=1 to n do
                s:=s+1/i;
        Write('S = ',s:0:2);
        Readln
End.