来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/04/30 16:10:28
pascal 火柴棒等式.哎.
var
i,j,ans,k,n:longint;
a:array[0..19]of longint;
procedure yuchuli;
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;
end;
function aa(c:longint):longint;
var
k:longint;
ans1:longint;
begin
if c
怎么了