PersonalCorpus 版 (精华区)

寄信人: sino (蚱蜢舟)
标  题: 1114
发信站: 哈工大紫丁香 (2002年03月16日12:58:36 星期六)
来  源: mtlab4.hit.edu.cn 

163170 05:00:35 16 Mar 2002
Bozhang,HIT,P.R.China 1114 Pascal Accepted 0.02 sec 53K


var
    s,t:array[0..15] of extended;
    r1,r2:extended;
    i,j,k,a,b,n:integer;
begin
    readln(n,a,b);
    for i:=0 to 15 do begin s[i]:=1; t[i]:=1 end;
    for i:=2 to n do begin
        for j:=1 to 15 do
            for k:=15 downto j do s[k]:=s[k]+t[k-j];
        for j:=0 to 15 do t[j]:=s[j];
    end;
    r1:=0; for i:=0 to a do r1:=r1+s[i];
    r2:=0; for i:=0 to b do r2:=r2+s[i];
    writeln(r1*r2:0:0);
end.
--
    我一直认为马佩军是西电编程第一高手，他编程的时候根本不是人，是指针。

                                             --《阳光男孩之大学十年》

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: mtlab4.hit.edu.cn]