记录编号	264886	评测结果	AAAAAAAAAA
题目名称	[NOIP 2008]火柴棒等式	最终得分	100
用户昵称	ConanQZ	是否通过	通过
代码语言	Pascal	运行时间	0.400 s
提交时间	2016-05-31 11:03:10	内存使用	0.17 MiB

program P1075;
var
n,i,j,k,x1,x2,x3,a1,a2,a3,b1,b2,b3,c1,c2,c3,d1,d2,d3:longint;
ans:longint;
v:array[0..10]of longint;

begin
assign(input,'matches.in'); reset(input);
assign(output,'matches.out'); rewrite(output);
readln(n);
dec(n,4);
v[0]:=6; v[1]:=2; v[2]:=5; v[3]:=5; v[4]:=4; v[5]:=5;
v[6]:=6; v[7]:=3 ; v[8]:=7; v[9]:=6;
for i:=0 to 1000 do
  for j:=0 to 1000 do
    begin
     a1:=i div 1000; b1:=i mod 1000 div 100; c1:=i mod 100 div 10; d1:=i mod 10;
     a2:=j div 1000; b2:=j mod 1000 div 100; c2:=j mod 100 div 10; d2:=j mod 10;
     k:=(i+j);
     a3:=k div 1000; b3:=k mod 1000 div 100; c3:=k mod 100 div 10; d3:=k mod 10;
     x1:=v[a1]+v[b1]+v[c1]+v[d1];
     x2:=v[a2]+v[b2]+v[c2]+v[d2];
     x3:=v[a3]+v[b3]+v[c3]+v[d3];
     if a1=0 then
       begin
        dec(x1,6);
        if b1=0 then
          begin
           dec(x1,6);
           if c1=0 then dec(x1,6);
          end;
       end;
     if a2=0 then
       begin
        dec(x2,6);
        if b2=0 then
          begin
           dec(x2,6);
           if c2=0 then dec(x2,6);
          end;
       end;
     if a3=0 then
       begin
        dec(x3,6);
        if b3=0 then
          begin
           dec(x3,6);
           if c3=0 then dec(x3,6);
          end;
       end;
     if x1+x2+x3=n then
       begin
        //writeln(i,'+',j,'=',k);
        inc(ans);
       end;
    end;
writeln(ans);
end.