2:N的连续数拆分pascal

要什么语言的?C的如下：#include"stdio.h"#defineMAX50intp[MAX];//每一次算出的组合存在这个数组里intn;intprint(intnum,inti){intj;

easy!自己调试programfenshuzi;varn,i,j:longint;f:array[0..100]oflongint;t:text;beginassign(t1,'split.in')

vara:array[1..10000]oflongint;n,i,w:longint;procedureasd;vari,x:longint;beginx:=0;fori:=1towdobegina

射这个数是n,第一个数是a和b则有(2a+7)8=2n(2b+8)9=2n根据上面能看出n必然含有因数4,而且n/4为奇数1+2+.+8=36所以根据第一个式子(2a+7)必然大于9而且是奇数第一个柿

vara:array[1..10000]ofinteger;n,max,wz,i:longint;beginreadln(n);fori:=1tondobeginread(a[i]);ifmaxa[2

vari,n,m,max,min:longint;beginreadln(n);max:=-maxlongint;min:=maxlonint;//初始化fori:=1tondobeginreadln

programysh(input,output);varst:ansistring;i,max,min:longint;a:array[1..1000]oflongint;beginreadln(st

vark:array[1..100]oflongint;n:longint;procedureprint(x:longint);//输出vari:longint;beginifx=1thenexit;

varmax,x,t:longint;beginread(max);t:=1;whilenoteolndo{不是结尾做下面,eoln结束}beginread(x);t:=t+1;ifx>maxthen

小儿科题目.把格子顺时针旋转45度,就是个菱形,利用矩阵横竖坐标的规律就行了.programPrintMatrix;constN=5;{阶数}SPACE=4;{数字占位}varmatrix:array

vartop,j,n,m:integer;s:array[0..100]ofinteger;procedureprint;vari:integer;beginifs[1]nthenwrite(n,'=

设2010=n+(n+1)+...(n+N)=(N+1)(2n+N)/2所以(N+1)(2n+N)=4020而4020=60*67由于67不能再分解,所以2n+N=67,所以N+1=60,从而N=59

其实这题运用一下数学思想就能优化许多纯粹的枚举肯定是徒劳无功的1/n=1/x+1/y=(x+y)/xy所以xy=n(x+y)=====>y=nx/(x-n)而x枚举的范围很容易知道在n+1到2nn+1

输入一个正整数N（不超过一百位）,如果N是偶数,则拆分N的各个数字相加求和；如果N是奇数,则拆分N的各个数字相乘求积.（如果是偶数则在输出时应加上“H=”,奇数则在输出时应加上“J=”）

programcf;vara:array[1..100]oflongint;i,j,len,n:longint;beginfillchar(a,sizeof(a),0);readln(n);a[1]:

programex;varn,i:integer;//s是输入的数,i是循环变量s:longint;//统计和的变量beginreadln(N);//读入ns:=0;//s赋初值fori:=21ton

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

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

1把一分数写成两个或两个以上分数单位的和,通常称分数拆分.2一般地,设a为大于1的自然数,在a分之一=几分之一加几分之一的括号里填入不同的自然数,使等式成立的解法是：（1）任选a的两个不同的约数（因数

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