題目描述

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

注意：

加號與等號各自需要兩根火柴棍

如果A≠B，則A+B=C與B+A=C視為不同的等式（A、B、C>=0）

var n,i,j,ans:longint; a:array[0..9]of longint=(6,2,5,5,4,5,6,3,7,6);function rem(n:longint):longint;var ls,i,c:longint; s:string;begin rem:=0;//一定要清零 str(n,s); ls:=length(s); for i:=1 to ls do  begin   c:=ord(s[i])-48;//分出每一位   rem:=a[c]+rem;//把每一位的火柴棒個數匯總  end;end;begin read(n); for i:=0 to 1000 do//之所以是一千，可以算。24減去符號剩下20.火柴棒用得最少是2根，A+B=C中只有A.B.C是數字，所以20要除于3，得3，因為有余數，所以加一位，就是4位，一千。本題數據小，不然不可以一個一個枚舉。  for j:=0 to 1000 do//同上   if rem(i)+rem(j)+rem(i+j)=n-4 then inc(ans);  write(ans); end.