~小耳朵猪~ 2012-07-14 19:59:00
点我顶贴
收藏
删除
谁帮看下这程序时怎么回事啊,就过两组。。
program star;
var a,b,k,n,m:longint;
function mi(q1,q2:longint):int64;
begin
if q2=0 then mi:=1
else mi:=q1*mi(q1,q2-1);
end;
function jiecheng(e:longint):int64;
begin
if e=0 then exit(1);
if e=1 then jiecheng:=1
else jiecheng:=e*jiecheng(e-1);
end;
function c(w1,w2:longint):int64;
begin
if w1=w2 then exit(1);
c:=jiecheng(w1) div (jiecheng(w2)*jiecheng(w1-w2));
end;
begin
assign(input,'star.in');assign(output,'star.out');
reset(input);rewrite(output);
readln(a,b,k,n,m);
writeln(mi(a,k-m)*mi(b,m)*c(k,m));
close(input);close(output);
end.