P1149 火柴棒等式

 P1149 火柴棒等式

题目描述

给你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

var

a: array [ 0. .9 ]of longint;

n,i,j,ans:longint;

function try(n:longint):longint ;

begin

try := 0 ;

repeat

inc(try,a[n mod 10]) ;//计算摆完的所有数字要用多少火柴棍

n:=n div 10 ;

until n= 0 ;

end;

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 ;

read(n);

n:=n -4 ;//加号等号各需要2根火柴棍

for i:= 0 to 1000 do

for j:= 0 to 1000 do

if (try(i)+try(j)+try(i+j) =n) then inc(ans) ;//i=a,j=b,i+j=a+b=c

writeln(ans);

end.