pascal 用函数求1 2 3 -- n的和(n

想了想...1--varn,m:integer;functionf(n,m:integer):longint;vari,s:longint;{因为总和可能很大所以用longint}beginfori:

1、vara,b,c,s:integer;proceduremax(a,b,c:integer;vars:integer);vartmp:integer;beginifa>bthentmp:=a;a:

可以用whilenoteof()do做再问：可以把程序写出来吗？再答：programxxx;varn,t:real;vari:integer;beginn:=0;i:=0;whilenoteof()d

　　如上图,输入、输出的截图　　var　　a,b,c,x,y,t:double;　　begin　　readln(a,b,c);　　t:=b*b-4*a*c;　　if t>0　　then

constn=5;varw:array[1..n]ofinteger;   v:array[1..n]ofinteger;   k:inte

其实加与不加一个样子不信你可以试验一下但是我建议的是不加因为很多大的程序要对数字判奇偶上万个数字判断如果每个数字都要多加一次判断没用而且还浪费时间这是我的看法如果有不同的绝不否认!

power函数

varn,min,max,g,i:integer;beginread(n);min:=-maxint;max:=maxint;fori:=1tondobeginread(g);ifmin>gthenm

programDoingData;varn:longint;sum:longint;n1:real;n2:longint;n3:real;a:array[0..1000]oflongint;f:arr

输入：725194输出：124579

超时原因挺简单的……比如一个a,你这个程序就死循环了……然后你这里还有个错误,就是任何一步都是会出现长度变成奇数的,所以你在pd这个函数里应该判断一下长度,而不是只在读入之后判断一次；以及,看下面的讨

programtrack;vart1:array[1..10000]oflongint;top,n,i:integer;rd:char;f:boolean;beginrd:='';top:=0;f:=

Consta:array[1..23]ofinteger=(11,19,9,12,5,20,1,18,4,16,6,10,15,2,17,3,14,7,13,8,11,19,9);varmax,i,l

晕,你也太爱占小便宜了.才5分就5道题,我一道NOIP的题就花了50分.还有你的题目不全,没有测试数据.建议你别悬赏,分5道问,题目描述和测试数据给全一点.

var  a,f:array[0..1001,0..1001] of longint;  n,i,j:longint;function&nb

vari:longint;functionsushu(s:longint):boolean;vari:longint;beginsushu:=true;fori:=2tosdiv2doifsmodi=

按顺序判断第一个满足就执行然后后面的就不会执行了所以是只执行□□□□□□□的你注意理解else的意思"否则"既然都是"否则"了所以前面的条件一定不满足所以才要执行否则的内容只不过否则刚好又是一个if语

1.输入两个整数,按由大到小的顺序输出.programdaxiao;vara,b,c,t:integer;beginifa

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

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