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
