box.pas

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

program box(input, output);

const max = 10;

type integer = longint;

var n, r, i, j : integer;
    s : array [0..max, 0..max] of integer;

begin
  readln(n, r);
  fillchar(s, sizeof(s), 0); s[0][0] := 1;
  for i := 1 to n do
    for j := 1 to r do
      s[i][j] := s[i - 1][j - 1] + j * s[i - 1][j];
  for i := 1 to r do
    s[n][r] := s[n][r] * i;
  writeln(s[n][r])
end.