2 câu trả lời
uses crt;
var n:longint;
f:array[1..100]of longint;
procedure factorialOfN;
var i:longint;
begin
f[1]:=1;
f[2]:=2;
for i:=3 to n do f[i]:=i*f[i-1];
end;
begin
clrscr;
readln(n);
factorialOfN;
write(f[n]);
readln;
end.
Câu hỏi trong lớp
Xem thêm
