pascal 函数求1 2 3 n

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

vari,j,n,l,k,m,n:longint;a:string;beginn:=1;readln(l);fori:=2toldon:=n*i;str(n,a);j:=length(a);m:=1;

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

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

programex1;varj,m,n,m1,n1,a,b:integer;beginreadln(m,n);ifm

power函数

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

functionfibonacci(n:integer):integerbeginif(n=0)thenResult:=0;if(n=1)thenResult:=1;if(n>1)thenResult

programsd;constm=3;vara:array[1..m]ofinteger;i,s,n:integer;functionzdgy(num1,num2:integer):integer;v

算完阶乘后,转为字符串就好处理了.programProject2(input,output);varN:Integer;S:string;functionjc(i:longint):longint;v

目前几乎没有算法实现10000阶乘201错误是数值溢出integer的范围是-32767..32767,用作阶乘是远远不够的简单递归只能算到12的阶乘：Programjiecheng;vars,n:l

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

vari,n,m1,m2,m3:integer;beginread(n);fori:=1tondobeginread(m3);if(i=1)or(m1>m3)thenm1:=m3;if(i=1)or(

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

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

varn,i,a,max,min:longint;beginreadln(n);//共有n个数read(a);max:=a;min:=a;fori:=2tondobeginread(a);ifa>ma

varn,i,x,max,maxi:integer;beginreadln(n);read(max);maxi:=1;fori:=2tondobeginread(x);ifx>maxthenbegin

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

DPf[i]表示凑成i的方案数与noip2010第二题很像f[i]:=f[i-k]+1再问：k是什么？再答：k是你枚举减去的数再问：汗。。。听不懂，到底是什么？举个例子再答：==求证中再问：如果是用递

functionfz3(n:longint):longint;varP:longint;beginp:=ndiv3;//p表示从1-n有多少被3整除的数fz3:=(3+p*3)*pdiv2;//数列求