Pascal等差数列题,求2.4.6......第m项到第n项和,m

/>简单枚举肯定会超时这道题有两种思路：(1)用筛法求出1..1e8范围内的素数,然后判断每个素数是否是回文数.(2)生成1..1e8范围内的回文数,然后判断它是否是素数.思路1的复杂度是O(n),思

这是递归,你这个程序应该是求最大公倍数的.就是不断地在函数内部调用函数自己,直到满足某一条件才退出

vari:integer;sum:double;beginsum:=200;fori=1to100dobeginsum:=sum+sum*i*0.045;if(sum>500)thenbeginwri

vara,b,i:integer;beginreadln(a,b);fori:=ato1doif(amodi=0)and(bmodi=0)thenwriteln(i);end.//公约数vara,b,

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

vari:longint;s,max,min,t:real;beginrepeati:=i+1;read(t);ifi=1thenmin:=t;ifmaxtthenmin:=t;s:=s+t;unti

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

搜索,如果数据小应该可以过!实在不行把所有重量都乘成整数,然后01背包!

vara:array[1..100]ofinteger;n,i,j,s,max:longint;begin read(n); fori:=1tondoread(a[i]);&nbs

VARi,j,k:integer;BEGINFORi:=0TO33DOFORj:=0TO50DOBEGINk:=90-i-j;IF15*i+10*j+5*k=500THENwriteln(i:5,j:

输入：725194输出：124579

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

varintn,m,i,s:longint;readln(n,m);fori:=2tomdobegin　　s=(s+n)modi;　writeln("winneris",s)end;end.

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

varx,s:int64;begins:=0;repeatread(x);inc(s,x);untilx=-1;writeln(s+1);end.

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

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