Tính n! sử dụng vòng lặp For


Mã:
GiaiThua[n_] := Module[{temp},
    	For[i = 1; temp = 1, i ≤ n, i++, temp = temp*i];
    	Return[temp];
    ]
n = Input[];
GiaiThua[n]