Pascal连续正整数

设所求四个连续整数分别为a，a+1，a+2，a+3，则1a+1a+1+1a+2+3a+3=1920⇒1a＞1920×4，解得，1419＜a＜4419⇒a=2或a=3，但12+13+14+15=7760

设四个连续正整数分别为n-1、n、n+1、n+2那么s=n-1+n+n+1+n+2=4n+230

programsample;vari,x,s,q:longint;begins:=0;q:=0;fori:=1to30dobeginread(x);inc(s,x);inc(q,sqr(x));end

这个其实可以用多种方法实现方法1：分离数字法varx,l,s:longint;beginread(x);whilex>0dobeginl:=xmod10;inc(s,l);x:=xdiv10;//当前

pascalpascalpascal!

504=7×8×9，又因为17+18+19=191504，所以这三个数之和是：7+8+9=24；答：这三个数之和是24．故答案为：24．

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

因为连续的4个数中必定有一个是3的倍数，所以这四个数通分后分母必定是3的倍数，而这里的分母为20，显然是经过约分后的结果，所以没约分前分母是20×3=60，没约分前的四个倒数之和是5760．60的约数

高精度与高精度乘法【问题描述】设高精度数a[1]a[2]...a[n-1]a[n]与高精度b[1]b[2]...b[n-1]b[n]的乘法可表示如下：a,b:array[1..n]of0..9;即：a

能够把题目描述得清楚一些,看不明白啊?或者加个输入输出的样列也好啊.如果你描述清楚,我直接给你源程序.

设x为大于1的任意正整数,则三个连续正整数可以表示成x-1,x,x+1则三个连续正整数的平方和为（x-1）^2+x^2+（x+1）^2=3x^2+2x为大于1的正整数,3x^2+2一定为不完全平方数证

vari,j,k,n:longint;beginreadln(n);i:=2;repeatinc(i);forj:=itondofork:=jtondoifi*i+j*j=k*kthenwriteln

vari,j,n:longint;z:boolean;beginreadln(n);writeln(2);fori:=3tondobeginz:=true;forj:=2toi-1doifimodj=

样例说明1和4一堆,2和3一堆,5*5-5*5=0题目分析题目给出n个数,让你将这n个数分成两组,使得两组和的平方差的绝对值最小,输出此时这两组的和的平方差的绝对值.算法分析这道题经过仔细分析不难发现

主要有三个问题,一个是你的YUSHU函数应该用值参而不是用形参,就是说要把VAR去掉；还有就是你的循环体里A:=B是不对的,想一下,如果这样赋值,一进循环体,A,B就相等了,显然不对,应该定义一个中间

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

程序已经编写完成,请采纳:varn:integer;functionfacsum(n:longint):longint;vars,t,i:longint;begins:=0;i:=1;t:=1;whi

楼上的看清楚了,人家要的是程序方法一：modicomma.prg然后在出现的程序框中输入input"n="tonx=0form=1tonx=x+mendfor?"n=",x按CTRL+W保存,然后在命

11112222=x(x+1)x^2+x-11112222=0(x-3333)(x+3334)=0x1=3333x2=-3334

1、听说这题用辗转相除法很好,不过我不会.varx,y,i:integer;beginreadln(x,y);fori:=xdownto1doifymodi=0thenbeginwriteln(i);