NOIP2008火柴棒等式求神牛更正程序给你n根火柴棒,你可以拼出多少个形如“A+B=C”的等式?等式中的A、B、C是用火柴棒拼出的整数(若该数非零,则最高位不能是0).用火柴棒拼数字0--9的拼法如图

Question

NOIP2008火柴棒等式 求神牛更正程序
给你n根火柴棒,你可以拼出多少个形如“A+B=C”的等式?等式中的A、B、C是用火柴棒拼出的整数(若该数非零,则最高位不能是0).用火柴棒拼数字0--9的拼法如图所示：
注意：
1．加号与等号各自需要2根火柴棒
2．如果A≠B,则A+B=C与B+A=C视为不同的等式(A、B、C>=0)
3．n根火柴棒必须全部用上
【输入】
输入文件matches.in共一行,有一个整数n(n

Answer 1

function ss(c:integer):longint;{计算火柴棒数}
begin
ss:=0;
if c