noip2008复赛题目

来源：学生作业帮编辑：大师作文网作业帮分类：英语作业时间：2024/11/14 19:48:55

noip2008复赛题目

第一题
Program Gy;
Const
Name='isbn';
Var
A,B:String;
Procedure Inp;
Begin
Assign(Input,Name+'.in');Reset(Input);
Assign(Output,Name+'.out');Rewrite(Output);
Readln(A);
End;
Procedure Main;
Var i,j,k:Longint;
Begin
j:=0;k:=0;
For i:=1 to Length(A)-1 do
If A[i]in['0'..'9']then
Begin
Inc(k);
j:=j+(Ord(A[i])-Ord('0'))*k;
End;
j:=j mod 11;
B:=A;
If j=10 then B[Length(B)]:='X'Else B[Length(B)]:=Chr(j+Ord('0'));
End;
Procedure Oup;
Begin
If B=A then Writeln('Right')
Else Writeln(B);
Close(Input);
Close(Output);
End;
Begin
Inp;
Main;
Oup;
End.
第二题
Program Gy;
Uses Math;
Const
Name='seat';
Var
x1,y1,x2,y2:Array[1..3000]of Longint;
N,M,K,L,D:longint;
A,C:Array[1..2,1..2000]of Longint;
B1,B2:Array[1..2000]of Byte;
Procedure Inp;
Var i:longint;
Begin
Assign(Input,Name+'.in');Reset(Input);
Assign(Output,Name+'.out');Rewrite(Output);
Randomize;
Readln(M,N,K,L,D);
For i:=1 to D do Readln(x1[i],y1[i],x2[i],y2[i]);
End;
Procedure Sort(p,l,r:Longint);
Var i,j,x,y:Longint;
Begin
i:=l;j:=r;x:=a[p,Random(r-l)+l];
Repeat
While a[p,i]>x do Inc(i);
While a[p,j]

noip2008复赛试题,急求noip2008复赛提高组复赛试题急求NOIP2008（提高组）复赛测试数据 NOIP2008普及组复赛第4题标程大神们帮帮忙 2012天原杯复赛题目求解 2010年全国春蕾杯作文复赛题目物理竞赛复赛实验题目（辽宁省）求往届新概念作文大赛复赛题目 2011年新概念作文复赛题目 27物理竞赛复赛试题一题就好 27届全国高中生物理竞赛复赛题目我要参加创新作文大赛复赛山东的,求历届复赛题目和写作指导, 新概念作文大赛有一届复赛题目是咬了一口的苹果?