Câu 49. Viết chương trình tính n! với n! được định nghĩa như sau: - n! = 1.2.3...n (Tích của n số từ 1 đến n). Yêu cầu: Sử dụng vòng lặp với số lần chưa biết trước: Hướng dẫn: - Có thể viết lại: n! = n.(n-1)... - Lặp gt = gt*n Giúp tui vs mn ơi tui cần gấp nè Giúp tui vote 5* nha

Program FNG;
Uses crt;
Var n,i: longint;
    s: qword;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=1; i:=1;

        While i<=n do

        Begin

                s:=s*i;

                inc(i);

        End;
        Write(n,'! = ',s);
        Readln
End.

Program BTH;
uses crt;
var a,b:qword;
Begin
        clrscr;
        Repeat
                write('Nhap so n: ');readln(a);
        until a>0;
                b:=1;
                while a>0 do
                begin
                        b:=b*a;
                        a:=a-1;
                end;
        writeln('Giai thua cua n la: ',b);
        readln;
end.