不是VIP会员,不能显示答案

题目解答

题目:
program test02;
var
x:longint;
n,i:integer;
begin
readln(n);
x:=1;
for i:=1 to n do
x:=x*i;
writeln(x);
end.
输入:8
答案:40320
考点:
分析:
解答:
评论:
老师: