2008noip 信息学 竞赛 解答 火柴棒等式

program matches;
var
        i,j,all:integer;
        a:array[0..24] of integer;
        f1,f2:text;
procedure hcb;
begin
        a[0]:=6; a[1]:=2; a[2]:=5; a[3]:=5; a[4]:=4;
        a[5]:=5; a[6]:=6; a[7]:=3; a[8]:=7; a[9]:=6;
        a[10]:=a[1]+a[0]; a[11]:=a[1]+a[1]; a[12]:=a[1]+a[2]; a[13]:=a[1]+a[3];
        a[14]:=a[1]+a[4]; a[15]:=a[1]+a[5]; a[16]:=a[1]+a[6]; a[17]:=a[1]+a[7];
        a[18]:=a[1]+a[8]; a[19]:=a[1]+a[9]; a[20]:=a[2]+a[0]; a[21]:=a[2]+a[1];
        a[22]:=a[2]+a[2]; a[23]:=a[2]+a[3]; a[24]:=a[2]+a[4];
end;
procedure init;
var c,n,k:integer;
begin
        assign(f1,'matches.in');
        assign(f2,'matches.out');
        reset(f1); rewrite(f2);
        readln(f1,n);
        close(f1);
        c:=n; dec(n,4); all:=0;
        for i:=0 to c do
        for j:=0 to c do
        for k:=1 to c do
        begin
                if (i+j=k) and (a[i]+a[j]+a[k]=n) then inc(all);
        end;

end;
begin
        hcb;
        init;
        write(f2,all);
        close(f2);
end.