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*1×2*2×3

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.