去括号pascal程序

programques_1;vari,j,k:integer;beginfori:=1to9doforj:=0to9dofork:=0to9doifi*i*i+j*j*j+k*k*k=100*i+10

不需要使用快速幂.var\x05i:longint;\x05t,k:longint;\x05flag:boolean;\x05v:array[0..1000]oflongint;begin\x05re

1.思路：用一个字符串数组储存输入的数据，并分别输出。程序：Vara:array[1..3]ofstring;i:integer;BeginFori:=1to3doReadln(a[i]);Fori:

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

倒数第4行改为fork:=itojdof[j,i]:=max(f[j,k-1]*a[k+1,j],f[j,i]);再问：我试过了，还是201呀

programa4;vara,b,c:integer;beginreadln(a,b,c);if(((a>0)and(b>0)and(c>0))and((a+b>c)and(a+c>b)and(b+c

这个中有规律programsl;vara:array[1..2000]oflongint;i,j,k:longint;n:longint;beginreadln(k,n);{b[0]:=1;c[0]:

实在看不懂判断质数的地方应该是对的,可是判断回文的地方太复杂了最好用两个函数来做:functionzhishu(x:integer):boolean;太麻烦了,略过~~~~~functionhuiwe

[]表示集合啊

varn,i,min,max,maxi,mini,s:integer;x:array[1..100]ofinteger;ans:real;beginreadln(n);fori:=1tondoread

类型：搜索本题动态规划无从下手,也无数学公式可寻,看来只能搜索（组合的生成算法）,其实1

1.tmp：=true2.j3.not（tmp）4.ans再问：能讲解一下吗好的加分再答：额，我是偷偷上网的

//这是约瑟夫问题,有很多种解法,以下是一种模拟方法,第12行去掉注释,就是整个出列的过程.//Josephus0.pasvar a:array[1..100] of b

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

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

首先建议用for循环写fori:=1tolength(a)do还有在循环中输出‘Wrong’后最好break;致命之处在于if语句if(a[i]='(')and(a[i]='[')应该是if(a[i]

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

typenum=array[1..10000]ofinteger;vara:string;b:num;i,j,k,n:longint;ci:integer;procedureinit;beginrea

varv,u,x,y:array[0..9]oflongint;a:array[0..9,0..9]oflongint;b:array[1..1000]oflongint;sum:array[1..1

1:vara:array[1..1000]oflongint;a1,a2:longint;beginreadln(a1);{输入总数};fora1:=1toa1dobeginread(a2);{输入每