讨论 / 大牛帮个忙啊
~小耳朵猪~ 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.

#1 ~小耳朵猪~@2012-07-14 19:59:00
回复 删除
是noip2011提高组的输出系数的那个题
查看更多回复
提交回复