PASCAL NOIP1996普及组复赛第二题2.输入三个自然数N,i,j (1

来源:学生作业帮助网 编辑:作业帮 时间:2024/07/12 04:49:37
PASCAL NOIP1996普及组复赛第二题2.输入三个自然数N,i,j (1
x) p vvQ 04{6s[.}u5kyh=}/M~ںɎ';Vh_e۳t2u0I*'8Zb/# ӋsJ "l\< JLC̼ HJ,*J634 (V!?ME)ԔҢT"YV蔠ڒ dC˴́ٝee[cWX&Fkdjgi*d)¤R RK-IUK*RHmhF 1S߃

PASCAL NOIP1996普及组复赛第二题2.输入三个自然数N,i,j (1
PASCAL NOIP1996普及组复赛第二题
2.输入三个自然数N,i,j (1

PASCAL NOIP1996普及组复赛第二题2.输入三个自然数N,i,j (1
program t1;
var i,j,k,l,m,n,x,y,i1:longint;
a:array[1..10000,1..2] of longint;
procedure qsort(l,r:longint);
var i,j,x,t:longint;
begin
i:=l;
j:=r;
x:=a[(i+j) div 2,1];
repeat
while x>a[i,1] do i:=i+1;
while x