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

因为每一行、每一列的数都构成等差数列，所以要知道每一行、每一列的公差，因为是两个公差，所以要需要4个数才可求得，又由于是在方格中填数，所以可以共用行和列相交的那个数，然后剩下的两个数取和它相邻的行和列

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

要使组成的数最大,也就是把所有的数从最高位的依次比较来排序,最后输出就可以了代码如下：Varn,i,j:longint;num:array[0..1000]ofstring;beginreadln(n

vara:array[1..100]ofinteger;n,i,j,s,max:longint;begin read(n); fori:=1tondoread(a[i]);&nbs

冒泡法复杂度n^2的排序方法可以将n个元素排序如果只是求最大数则可以在O(n)的时间做到代码：init;{读入n个数存储在数组a中}t:=a[1];fori:=2tondoifa[i]>tthent:

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

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

百度毁了我的格式...将就看吧,朴素算法..varuse:array[0..9]ofboolean;i,j,k,l,a,b,c,d,e,o,p,q,r:longint;beginfori:=0to9d

开心的金明：pascal源程序：programaaa;varv,p:array[1..60]oflongint;{v:价值,p：重量}f:array[0..60,0..32000]oflongint;

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=

就是一个很简单的dp题.varn,m,i,j,k,t,s,d:longint;a:array[0..2001]oflongint;f:array[-2..2001,-2..2001]oflongint

vari:longint;beginfori:=1to500dobeginif(imod3=2)and(imod5=3)and(imod7=2)thenwriteln(i);end;end.

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

varn,i,j:integer;s:string;beginreadln(n);forn:=1tondobeginstr(n,s);i:=1;j:=length(s);while(i=jthenwr

var  a:array[1..9,1..9] of longint;  f:array[0..20,0..11,0..11] o

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