NOIP2008火柴棒程序 PASCAL谁帮忙看下

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/11 13:16:28

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

把枚举量加大.
777+1=778--才22根

NOIP2008火柴棒程序 PASCAL谁帮忙看下麻烦帮忙看下程序:运行程序lingo程序,出现unexpected jacobian overflow 求matlab高手帮忙看下我这个程序. 帮忙看下这个lingo程序哪里出错了 pascal程序用,请用repeat语句实现请帮忙, 帮忙解一道pascal题目,有程序的请大神解释下这个程序（pascal）, 用Pascal编写一程序,输入一个正整数N,将N分解成质因数幂的乘积形式（帮忙看一下我哪里错了） PASCAL语言程序基本概念 Free pascal程序 pascal程序：数列 free pascal 改程序