Pascal求danci个数

typest=setofbyte;vars:st;functionsearch(a:longint;s:st):integer;vari:longint;begin  if(s=[

只要从一开始比较,小的就赋给min,大的就赋给maxprogramex1;varmax,min,i,n:longint;beginmax:=-maxlongint;min:=malongint;for

可以用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

vars,n:longint;functionprime(x:longint):boolean;vari:longint;beginifx>1thenbegini:=2;while(i*inthenp

constmax=1000000;vara:array[1..max]oflongint;N,i,j,k:longint;beginreadln(N);fori:=2toNdobeginifa[i]=

varch:char;s,j,i:integer;beginread(ch);whilech'.'dobeginif(ch>='A')and(ch='A')and(ch

programstat;varinf,outf:text;ss:string[10];next:array[1..10]ofinteger;s:ansistring;i,j,k,l,m,n,num,l

varn,i,ans:integer;beginreadln(n);ans:=0;//读入,计数器置0fori:=1tondoifnmodi=0theninc(ans);//从1到n循环找到一个他的因

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

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

输入：725194输出：124579

var s:string;    i,j,t:integer;begin  readln(s);  for&n

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

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

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

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

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

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