a) Tính tích S = 1 x 2 x 3 x ... x n
uses crt;
var i, n, S : longint;
begin
clrscr;
write('Nhao so n = '); readln(n);
S := 1; for i := 1 to n do
S := S * i; write('S = ', S);
readln
end.
b) Tính tích S = 1 * 1 x 2 * 2 x ... x n * n
uses crt;
var i, n, S : longint;
begin
clrscr;
write('Nhao so n = '); readln(n);
S := 1; for i := 1 to n do
S := S * sqr(i); write('S = ', S);
readln
end.