作业帮NOIP2008火柴棒程序 PASCAL谁帮忙看下var shu,i,j,k,s,m:integer; a:array [0..99] of integer;beginreadln(shu); s:=0;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;for i:=10 to 99 dobeginm:=i;a[i]:=a[(m mod 10)]+
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/07 19:15:29
NOIP2008火柴棒程序 PASCAL谁帮忙看下var shu,i,j,k,s,m:integer; a:array [0..99] of integer;beginreadln(shu); s:=0;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;for i:=10 to 99 dobeginm:=i;a[i]:=a[(m mod 10)]+
NOIP2008火柴棒程序 PASCAL谁帮忙看下
var shu,i,j,k,s,m:integer; a:array [0..99] of integer;
begin
readln(shu); s:=0;
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;
for i:=10 to 99 do
begin
m:=i;
a[i]:=a[(m mod 10)]+a[(m div 10)];
end;
for i:=0 to 24 do
for j:=0 to 24 do
for k:=0 to 99 do
begin
if (i+j=k) and (a[i]+a[j]+a[k]+4=shu) then inc(s); {write(i,' ',j,' ',k);} end;
writeln(s);
end.
只有60分,
不要发程序,希望有人耐心看下,3Q
NOIP2008火柴棒程序 PASCAL谁帮忙看下var shu,i,j,k,s,m:integer; a:array [0..99] of integer;beginreadln(shu); s:=0;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;for i:=10 to 99 dobeginm:=i;a[i]:=a[(m mod 10)]+
把枚举量加大.
777+1=778--才22根