【题解】洛谷1149 火柴棒等式

本题地址： http://www.luogu.org/problem/show?pid=1149

题目描述

给你n根火柴棍，你可以拼出多少个形如“A+B=C”的等式？等式中的A、B、C是用火柴棍拼出的整数（若该数非零，则最高位不能是0）。用火柴棍拼数字0-9的拼法如图所示：



注意：

1. 加号与等号各自需要两根火柴棍

2. 如果A≠B，则A+B=C与B+A=C视为不同的等式（A、B、C>=0）

3. n根火柴棍必须全部用上

输入输出格式

输入格式：

输入文件matches.in共一行，又一个整数n（n<=24）。
输出格式：

输出文件matches.out共一行，表示能拼成的不同等式的数目。

输入输出样例

输入样例#1：

样例输入1：
14
样例输入2：
18

输出样例#1：

样例输出1：
2
样例输出2：
9

说明

【输入输出样例1解释】

2个等式为0+1=1和1+0=1。

【输入输出样例2解释】

9个等式为：

0+4=4

0+11=11

1+10=11

2+2=4

2+7=9

4+0=4

7+2=9

10+1=11

11+0=11

强行打表枚举AC，利用类似迭代的方法生成了2000左右的数字所需火柴棒数，然后喜闻乐见地AC了，说明还是数据太弱。
var n,i,j,k,ans:longint;
 a:array[0..9]of
longint=(6,2,5,5,4,5,6,3,7,6);
 b:array[0..2050]of longint;
begin
readln(n);
n:=n-4;
for i:=0 to 9 do
 b[i]:=a[i];
for i:=10 to 2000 do
 begin
  k:=i;
  while k>9 do
   begin
    inc(b[i],a[k mod
10]);
    k:=k div 10;
   end;
  inc(b[i],a[k]);
 end;
for i:=0 to 1000 do
 for j:=0 to 1000 do
  if b[i]+b[j]+b[i+j]=n
  then inc(ans);
writeln(ans);
end.