Question

giúp mk bt pascal này vs!!!!!

Giả thiết có N hộp được đặt tên A1,A2,....,AN (3<=N<=200). Mỗi hộp được khóa bởi một khóa riêng. Người ta bỏ vào mỗi hộp một chìa khóa và khóa các hộp từ A3 cho đến AN. sau đó mở hai hộp A1 và A2 lấy các chìa khóa ra. Nếu những chìa khóa này mở được một số hộp nào đó, người ta sẽ lấy các chìa khóa ra từ đó và mở tiếp các hộp khác. Nếu cuối cùng người ta mở được hết các hộp, thì các chìa khóa gọi là bố trí tốt.

vct pascal tìm xem có bao nhiêu cách bố trí tốt chìa khóa
vd: N=6 có 240 cách bố trí tốt!

cảm ơn trước ạ!!!

Answer 1

const
fi='botri.inp';
fo='botri.out';
var
f:text;
i,n,t:integer;
procedure inp;
begin
assign(f,fi);
reset(f);
read(F,n);
closE(F);
end;
procedure out;
begin
assign(f,fo);
rewrite(F);
t:=1;
for i:=n-1 downto 1 do
t:=t*i;
t:=t*2;
write(f,t);
closE(F);
end;
BEGIN
INP;
OUT;
END.