1.
Program ctpt;
Uses crt;
Var i, n, T: integer;
Begin
Clrscr;
Write('Nhap n = '); readln(n);
T:=1;
For i:=1 to n do T:=i*T;
Write('Tich = ', T);
Readln
End.
2.
Program ctpt;
Uses crt;
Var i, n, S: integer;
Begin
Clrscr;
Write('Nhap n = '); readln(n);
S:=0;
For i:=1 to n do S:=S+1/i;
Write('Tong = ', S);
Readln
End.
3. (Doi minh test da nha)
Program ctpt;
Uses crt;
Var i, n, S, j: integer;
Begin
Clrscr;
Write('Nhap n = '); readln(n);
S:=0;
For i:=1 to n do
For j:=2 to n do
S:=S+1/i*1/j;
Write('Tong = ', S);
Readln
End.
