用pascal
var x,y:longint;
function s(p,q:longint):longint;
begin
if (p s:=0 else if (p=q) or 判罩宏(q=1) then s:=1 else if (p>q) and (q>1) then s:=s(p-1,q-1)+q*s(p-1,q); exit(s); end; begin 掘册readln(x,y); writeln(s(x,y)); end. 如果PASCAL看不懂，这里有也我写的C++代码闷友 主要就是递归，函数嵌套，选择结构 看在我打了半天代码，希望你能采纳我，谢谢 也希望对你有帮助
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024