| 比赛 | 20121108 | 评测结果 | AAAAAAAAAA |
|---|---|---|---|
| 题目名称 | K 上升段 | 最终得分 | 100 |
| 用户昵称 | Vow Ryan | 运行时间 | 0.002 s |
| 代码语言 | Pascal | 内存使用 | 0.17 MiB |
| 提交时间 | 2012-11-08 11:16:08 | ||
var
f:array[0..30,0..30]of qword;
i,j,k,l,m,n:longint;
begin
assign(input,'k.in');reset(input);
assign(output,'k.out');rewrite(output);
for i:=1 to 22 do f[i,1]:=1;
for i:=2 to 22 do
for j:=2 to i do
f[i,j]:=f[i-1,j]*j+f[i-1,j-1]*(i-j+1);
readln(n,m);
writeln(f[n,m]);
close(output);
end.