数的划分Pascal

vari,a,b:longint;beginfori:=1000to9999dobegina:=idiv100;b:=imod100;ifsqr(a+b)=ithenwriteln(i);end;en

functiongcd(a,b:longint):longint;beginif(b=0)thenexit(a)elseexit(gcd(b,amodb));end;functionlcm(a,b:l

1.1最大公约数与最小公倍数1.算法1:欧几里德算法求a,b的最大公约数functiongcd(a,b:longint):longint;beginifb=0thengcdd:=aelsegcd:=g

你这里是不是有个规则,就是拆分后的数,是从小到大排列的?函数如下：functionBreakNum(constAShowList:TStrings;constANum:Integer):TString

这是结果：361529784361784529529361784529784361784361529784529361下面是代码varu:array[1..9]ofboolean;a:array[1.

类型：搜索本题动态规划无从下手,也无数学公式可寻,看来只能搜索（组合的生成算法）,其实1

varn,ans:longint;beginreadln(n);ans:=0;whilen>0dobegininc(ans);n:=ndiv10;end;writeln(ans);end.

vari,n:longint;functionys(x:longint):longint;vari:longint;beginys:=0;fori:=1toxdiv2doifxmodi=0thenys

vara,b,c1,c2,d1,d2,e1,e2,f1,f2:integer;beginreadln(a,b);c1:=adivb;c2:=(adivb)+1;d1:=(amodb)+b;d2:=b-

就把动态规划的计算过程改成记忆化搜索就好了.对于一般的动态规划改记忆化搜索：如果动态规划方程是f[A]=func()其中usef[B[i]]那么改数组f[A]为函数f(A)然后对于其中用到的一个f[B

修改一下if(k==1)return1;

十进制数转换为二进制数、八进制数、十六进制数的方法：二进制数、八进制数、十六进制数转换为十进制数的方法：按权展开求和法1．二进制与十进制间的相互转换：（1）二进制转十进制方法：“按权展开求和”例：（1

varm,i,max,j,t:longint;a:Array[0..10000]oflongint;f:array[1..10000]oflongint;beginreadln(m);fori:=1t

varn,a,b,i,i1,i2:integer;beginreadln(a,b);fori:=atobdobegini2:=1;fori1:=2totrunc(sqrt(i))doifimodi1=

完全数：因子（除了它本身）之和等于它本身的数programcs4;vari,n,s:integer;begins:=0;forn:=2to100dobegin{fori:=1tondo}fori:=1

vars:string;a,b,c:longint;d:boolean;begind:=true;{试D先为true.｝read(s);c:=length(s);｛求字符串的长度.｝a:=cdiv2;

前面应该加上varifc[n,i]=c[s,i]不对正确：if(c[n,i]=c[s,i]){用and时应该加上括号}；马鞍数：5678945678345212349012548试过好使1,1是马鞍数

不得不问一句：LZ到底想干嘛?这样编程,岂止是很费时间?太麻烦了!先说一下你的问题：     你的代码的问题,首先在于很麻烦,看起来不容易找出错误,只

typenum=array[1..10000]ofinteger;vara:string;b:num;i,j,k,n:longint;ci:integer;procedureinit;beginrea

varv,u,x,y:array[0..9]oflongint;a:array[0..9,0..9]oflongint;b:array[1..1000]oflongint;sum:array[1..1