equal.pas

PASCAL光盘资料PASCAL光盘资料PASCAL光盘资料

program equal(input, output);

const max = 12;


var n, t, i, j, total :longint;
    n0 : array [1..max] of longint;

begin
  readln(n, t);
  for i := 1 to t do
    read(n0[i]);
  total := 1;
  for i := 1 to n do   {求N!}
    total := total * i;
  for i := 1 to t do
    for j := 1 to n0[i] do   {整除Ni!}
      total := total div j;
  writeln(total)
end.