Viết chương trình lặp với số lần biết trước và số lần lặp chưa biết trước cho: a) tính tích S sau: S= 1x2x3x.......xn b) tính tích S sau: S= 1*1x2*2x3*3x.........xn*n Em cần gấp ai biết giải giùm em với ạ em cảm ơn

a)

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

b)

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

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.