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/06/30 21:10:09
![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)]+](/uploads/image/z/13832525-29-5.jpg?t=NOIP2008%E7%81%AB%E6%9F%B4%E6%A3%92%E7%A8%8B%E5%BA%8F+PASCAL%E8%B0%81%E5%B8%AE%E5%BF%99%E7%9C%8B%E4%B8%8Bvar+shu%2Ci%2Cj%2Ck%2Cs%2Cm%3Ainteger%3B+a%3Aarray+%5B0..99%5D+of+integer%3Bbeginreadln%28shu%29%3B+s%3A%3D0%3Ba%5B0%5D%3A%3D6%3Ba%5B1%5D%3A%3D2%3Ba%5B2%5D%3A%3D5%3Ba%5B3%5D%3A%3D5%3Ba%5B4%5D%3A%3D4%3Ba%5B5%5D%3A%3D5%3Ba%5B6%5D%3A%3D6%3Ba%5B7%5D%3A%3D3%3Ba%5B8%5D%3A%3D7%3Ba%5B9%5D%3A%3D6%3Bfor+i%3A%3D10+to+99+dobeginm%3A%3Di%3Ba%5Bi%5D%3A%3Da%5B%28m+mod+10%29%5D%2B)
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根