pascal语言 对调

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

programhh;constn=4;vari,k:integer;x:array[1..n]ofinteger;st:string[n];t:string[n];procedureinput;var

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

varx,s:real;beginread(x);s:=0;ifx

vara,b,i,j,top:longint;s:array[1..100]oflongint;begina:=121;b:=130;top:=0;fori:=atobdoforj:=1toi-1do

不知是你题有问题还是…………貌似不用排序啊…………程序如下：varn,i,a:longint;{这里integer上限是33767,显然不能符合50000,因此用longint}T,P,Q:longi

programex01;vara:array[1..100000000]ofinteger;b,c:array[1..100]oflongint;i,n,m,x,y,j:longint;procedu

vars:integer;n:real;beginn:=100;s:=0;whiles再问：它求的是总路程吧？一共是20次着地。要全部加起来的。。我搞定了。。programcx3;vara,s:rea

vara,b:longint;i:integer;si:string;k:integer;functionmagic(j:string):string;//magic(j)求j的magic指纹varm

programconnect;vars:array[1..10]ofstring;ss:string;n,i,j:longint;beginreadln(ss);assign(input,ss+'.i

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

programj;vara,b,c,m,n:integer;beginreadln(m);a:=mdiv100;b:=(mdiv10)mod10;c:=mmod10;n:=c*100+b*10+a;w

第一题:programf1;varn:integer;beginreadln(n);writeln(nmod10,ndiv10mod10,ndiv100mod10,ndiv1000);end.第二题：

1、题目没错吧下面是程序,不过不可能符合的啊vari:longint;beginfori:=0to9doifi*6528=(30+i)*8256thenwriteln(i);end.2、vari:lo

vari,ans:longint;find:boolean;begini:=0;find:=false;whilenotfinddobegini：=i+1;if(imod2=1)and(imod3=2

第一题varr,x,y:real;beginreadln(r);{读入半径}readln(x,y);{读入坐标}ifsqr(x)+sqr(y)=sqr(r)thenwriteln('yes'){这个是

varn,i,x,sum:longint;beginreadln(n);sum:=0;fori:=1tondobeginread(x);inc(sum,x);end;writeln(sum);end.

这么多问题,不分过来谁答啊?而且没有分?!再问：谢谢指教，但。。。你给爹滚再答：我还就不滚了！！！！！！

满意请给分,谢!programex;typestudent=record//定义学生记录stuID:integer;//学号homework:boolean;//判断是否交作业end;varstu:a

不知道对不对错了请告诉我谢谢具体表达式计算的方法我就不说了网上也可以找到就是栈的操作而已程序如下:varn,i,CSignA,CNumbA:longint;SignA:array[1..200]ofc