YLARMY 11-3-2007 12:17 AM
NOIP历届题
[code]p+pm s"[l9p
Z
这个,2001试题1一元三次方程求解（2004发布）
/waj8Qtd y
program a01_g1;
B\EPr'U
var "gz wL:x1k
x:array[1..3] of real; $oN!gR8u0T
a,b,c,d,u,v:real;
#lQ1ic#J0? rG%U
i,t:integer; 8s
^ rep
function f(x:real):real; 5s:{G+_m y
begin
-s TY}/L'E
f:=((a*x+b)*x+c)*x+d;
)H4p` fn;C.p0Q+W
end;
"}'h0k%qwA:I8^
begin ;k5]q9b0E
read(a,b,c,d);
uli9|"_0`2I M$RG
t:=0;
e-kCs,r ~ HX"[
for i:=-100 to 100 do
q4Lv MU(B4tS
begin
V P2G-~/c&?
u:=i;v:=u+0.99999;
!a!JB,p*aL~
if(abs(f(u))<0.00001)or(f(u)*f(v)<=0)then
#KN1]#r,T \
begin
-H9R%p'W[e)}s!O
inc(t); "Q-@"{
cl,\*}8q
if abs(f(u))<=0.00001 then x[t]:=u 4}y.T*t5fK(SUt9Zw
else begin ,{P9S+T7d;cV
while (u+0.001<v) and (f((u+v)/2)<>0)do
*Jmuk R(r R[
if f(u)*f((u+v)/2)<0 then v:=(u+v)/2 else u:=(u+v)/2; 2}R
n0]b]
x[t]:=(u+t)/2;
8E,PZ k*}8C M
end;
X;E,y7]V I
end;
]'Z3IG l Se-X4BT
end;
wb;s0X'I0|b
for t:=1 to 3 do
2R+j6qr2j `L
write(x[t]:0:2,' '); N'}4@'\+Qh
writeln;
E7`3Sg8R E!t,M
end.
_1g
FF az'oBy
[/code]
1u&Sx{)p`0v5{
[color=White]
:I&F@3N3E3|&e
&Pd%w4v2T4@kEA`
[[i] 本帖最后由 sycsim 于 2007-3-11 03:11 AM 编辑 [/i]]
YLARMY 11-3-2007 12:17 AM
[code]
9I"{9fD[+L
2002年试题1纸牌均分（2004发布）
^&Wi4_K QH1f&^
program gao1; /X Y"V @'Z.T/_V
var Al/ms8?j T3AEo+P
n,i,j,j1,s,s1,avg:integer;
h
Q)BBZ
x:array[1..1000]of integer; ,V9H VN7?$S.TU
f1:text;
$iFq/W&u&i!c2C[l
str:string;
'H3O%K1aF
Lt&W!\"C
begin 7xK4q'^(S _K(^LG
readln(str); #\v*n Aa0w-}0EI
assign(f1,str);
a6D L1r#^C:b [
reset(f1);
x:p&` L,DD*bpIS
readln(f1,n); z { o3i ?._f
avg:=0;
J N MD s/] x yf
for i:=1 to n do
H;|Q y#f d+]
begin
;fH _LU
read(f1,x[i]);
w
vW*~
B
avg:=avg+x[i]; -tQB[0j Qo p
end; Wg5M8bn
close(f1); l6YDg2v'[(n-A
avg:=avg div n;
"r7G7GC S)[n&o$]yb0K
s:=0;
{kG9N3v9c
j:=1;
I:p |6b \
while (j<n) do -N%~
_2U/A E
begin P H5gg*qU3x
j1:=1;
E F!j cW_.\5]0R
s1:=x[j]; 5^6r{MM
while (s1<j1*avg)do
aa[-|&Mj D)Z9z
begin a"cW,_6?F
j:=j+1; f^GC&yB0_L*f1x z"D
j1:=j1+1; 5o|2A e&c*e#Rk
s1:=s1+x[j]; y*F7L
M!R2u
end; -X+l,b;e{'K,x:Y A
if (s1=j1*avg)then s:=s+j1-1
rk)b$x0b7o7O1@9d^
else begin
/Zp
c w/{!G
s:=j1;
f1Z X h2rb]H~
x[j+1]:=x[j+1]+s1-j1*avg; ]6h,g4u4K d
O
end;
7[:j,}O2H
uv"W)t
j:=j+1;
-oK'c Yt(UU(@
end;
0{lVSL*SH'F*f
writeln(s);
owj:B:`$^0@"Sx b9d
readln;x7DV {@ n:v
[/code]t \3~$A!i(R R
j(z8h$v
[color=White]`#c i%N&q3\
T H?6J6p#s0B
[[i] 本帖最后由 sycsim 于 2007-3-11 03:11 AM 编辑 [/i]]
YLARMY 11-3-2007 12:18 AM
[code]program NOIP2003_1_Network; .i(p iU0w
const b| HaK X)H7n$^c
maxn=200;maxp=200;
-|8T ^-Zb&U(J XN;i
var
I-B K0O^6x(f
i,j,n,p,maxlayer:integer; )W4KH sczi8`
w:array[0..maxp]of longint;
Q3z|7s-McTw/Mg
start,terminal:array[0..maxp]of byte;
#o%^
^+^ f
u,c:array[0..maxn]of longint; 1k4u^H|;uv
layer:array[0..maxn]of byte; r2a3Z,v3Zu
f1,f2:text;fn1,fn2,fileNo:string; 'e%d+IsG,E8D5c5kC'j
flag:boolean; \ ]$Q] Z^/m)mP*L
begin
u8aCN?b_
b;D
write('Input fileNo:'); (X;k)x${F/dT6x
readln(fileNo); +?:S n6p%cp:?
o$ER{ yH
fn1:='network.in'+fileNo;
&x
d-M.C$R lx_J
fn2:='network.ou'+fileNo; 3nH0\.w
DD hj3{~
assign(f1,fn1);reset(f1);
!]W ZtB S&rP5`
assign(f2,fn2);rewrite(f2);
-B)H Cd c
LH~ Ki
readln(f1,n,p); %d9|pA)w8S;b'yq
for i:=1 to n do readln(f1,c[i],u[i]);
VUB${|3im
fillchar(layer,sizeof(layer),0);
sG?i H
for i:=1 to p do begin
ZT/P_(Z&] S
t
readln(f1,start[i],terminal[i],w[i]); T4l
K;p%T^:H9C7w\z
layer[terminal[i]]:=layer[start[i]]+1;
g(Lq4^2[(B,P"O
end;
FY'z
wr7e8^
close(f1);
3[.[iD/^?
maxlayer:=layer[terminal[p]];
$Q}_c2N:A
rE
for i:=1 to n do N].w-Ao d2VE/q
if layer[i]>0 then begin ?C9{,tT#]4U"oC
for j:=1 to p do
ZW Tm4pr
if (terminal[j]=i) and (c[start[j]]>0) 9[5{5Vs4@"g^e
then c[i]:=c[i]+w[j]*c[start[j]]; :f:o6I/{g,@%C1O
c[i]:=c[i]-u[i];
&C'D1I q$]q
end;
T;Bm9r8@*H(M
flag:=true;
_1C;e~|B4ka
for i:=1 to n do
z5J+zGg%rO-N
if (layer[i]=maxlayer) and (c[i]>0) then begin "oNs8Z#B'o1l@
writeln(f2,i,' ',c[i]); H8oc/wOD!Q
flag:=false; 'sb)j(r/\Y8l
end; 6e6Jtl8bX/@
if flag then writeln(f2,'NULL');
~2py N,Gq1T)p!b
close(f2); 3LC.u3@T
end.
'[#m0gT9]
_F'K6ki~0K kb
Qk x-g o F` q
=================
oiFQ~Z K~} r
program NOIP2003_2_Logic;
9? h,C:A8k%N$n
const
5e5m*O
c{ Y
maxm=20; _6yG Z:j\
dow:array[1..7]of string=('Sunday.','Monday.','Tuesday.','Wednesday.', _$|z7?7j @.fR.Z
'Thursday.','Friday.','Saturday.');
z;bR/[1e:f
var
6Y
p,zohC }(C-nfz
i,j,k,weekday,m,n,p,p1,p2,p3,index,resolution,total1,total2:byte; %K Y9E8z0@6N.y
name:array[1..maxm]of string; N|U#]]4R~
witness10,witness20:array[1..100]of byte;
0]g)Pr s+s2x"rht
witness1,witness2:array[1..100]of string;
n*~h}?f
name0,temp,temp0,temp1,temp2:string;
D r/Lz%_K R i2l3f'Y C
truth,truth0:array[1..maxm]of byte;
N7R5`Hl.rj
f1,f2:text;fn1,fn2,fileNo:string;
*D Cq/U.A8iX I%[
flag:boolean;
| [.j zd2@ I
begin ,}1}"^
g mT
write('Input fileNo:');readln(fileNo); o$F$}nR
fn1:='logic.in'+fileNo;fn2:='logic.ou'+fileNo;
+w-A-T` C7S-N0SW
assign(f1,fn1);reset(f1);assign(f2,fn2);rewrite(f2); 6OsA1kg
readln(f1,m,n,p);
@%] M;a*S,o
B
for i:=1 to m do readln(f1,name[i]);
Z z [T m n H#~R r G
total1:=0;total2:=0; x xYbP m3te!p+gK
for i:=1 to p do begin `x.Rk
P$Uut
readln(f1,temp);
|uMg/f7V
index:=pos(': ',temp); )p0|UT"U8_
temp1:=copy(temp,1,index-1);
%M,h~X.G uW7v4s[s
temp2:=copy(temp,index+2,length(temp)-index-1); `9D2xg6Y2rm&Cm
if (temp2='I am guilty.') or (temp2='I am not guilty.') then 8y"s.yw n L{$?
for j:=1 to m do "NGx9b#a G~
Y2D
if name[j]=temp1 then begin
g;b%Um0h(}I?G9P&@#l"S
inc(total1);
p-h2r
[;u,p
G}M
witness10[total1]:=j; *h,B u!j l
witness1[total1]:=temp2;
zq aa l
break;
,u"Z+Yk1Y
end; B D#~m+WNH
if (pos(' is guilty.',temp2)>0) or (pos(' is not guilty.',temp2)>0) then begin :w4j8A bK2OA
temp0:=copy(temp2,1,pos(' is ',temp2)-1);
5N3D;~'T~ j6Kp
flag:=false; x
E;^ TJ$Y0R5j.y
for k:=1 to m do 8s,U
U NZuWcc+z
if temp0=name[k] then begin
j p8w3pgA0w+k
flag:=true; _` Z iq
break; 4mC4B T5J{4h` A
end; -e;rB@8pZ
if flag then
mD7kI X O
v#s,H
for j:=1 to m do
%J@{#@&~ ]k2^'h6Z
if name[j]=temp1 then begin .F3w4v'?1d7T.JV&s
inc(total1); 2r7|@%P
VV$U ~
witness10[total1]:=j; 8a1U'g hWz*F*o
witness1[total1]:=temp2;
&c"m3`j}2E*P]
break; d4llH nRcd
end; :Z o;K,a"o
end;
:VQcYU5}-w(m
flag:=false; :jD,{d CgT7?
for j:=1 to 7 do
uH*N1A?z qd5o
if temp2='Today is '+ dow[j] then begin
QQ h-LLK
N.Wq
flag:=true;
7L3@S5Nd
break; yox&Er*{ G,U
end; Q#Ft ]@5\B7S _
if flag then
M,O1}x V1D.Xy S
for j:=1 to m do !K8`v:{o:Z
if name[j]=temp1 then begin .o
M9D#| X'~ YM4H D
inc(total2); (`(P
C)b#hl
witness20[total2]:=j;
.U4X8XZ&H
witness2[total2]:=temp2; E-nV#g5u%JM
break; b]xEN7O.U#T
v+c
end;
y.xnl9} J8]}Hm
end;
v0g[
n/Us.x!G
close(f1);
Ls6_Ygg P)X
resolution:=0; v5G/fn(zU P8I
for i:=1 to m do begin
/O"v G+AS Bh!U
if resolution>1 then break; 4J1Q+B;}0RY8H O
fillchar(truth,sizeof(truth),0);
:X AX(yU,J'n
v&_
for j:=1 to total1 do begin D$V T
p2V
if witness1[j]='I am guilty.' then begin 8X Htr n]
if i=witness10[j] then
4oA&^h9d+Ns
case truth[i] of Z4X `^*t
t
0:truth[i]:=1;
1T
^*? eo&fY%C%Mi
2:truth[i]:=3; 4| eJ7E*QM
GW
end
%h;v*i\6]#L{
else
o Y.Y9@ w;D g/PN
case truth[witness10[j]] of K3Z!q4s/T~\
0:truth[witness10[j]]:=2; u;T"@!pA {fb'n
1:truth[witness10[j]]:=3; 2D;|/A8g ?} ZN,J
end; [i$a|c0K%S
end; l x[
E-T1KZ s
if witness1[j]='I am not guilty.' then begin 5jx,V^ TM U$R
if i=witness10[j] then
,?A['[
h8ka0]
case truth[i] of *}.kK
L0r
0:truth[i]:=2;
%hf A0}6i.BR*A
1:truth[i]:=3; ^`1X.vcf
end !e v^"N [}
else
&^HH
Ok'}6T
case truth[witness10[j]] of !d%U XQN,E%g5H
0:truth[witness10[j]]:=1;
q}.h#x{:B"W
R)t.B
2:truth[witness10[j]]:=3; M ]T}v V }'e5a
end; )R6fRY DX
end;
\C6U:z!| i&| v:|9hR
if (pos(' is guilty.',witness1[j])>0) then begin
v9gpJs;z(L
temp:=copy(witness1[j],1,pos(' is guilty.',witness1[j])-1);
@6V5p.jr{
if name[i]=temp then b4bA u S
case truth[witness10[j]] of
`/?"W fB0z4H.j
0:truth[witness10[j]]:=1;
*D.Z6z2o"ud
L
2:truth[witness10[j]]:=3; P [!vO*Y
g1v
end k"F^I.y8p
else
-^ u x%rc1z
case truth[witness10[j]] of
A C D\.C#}g7D"j@
0:truth[witness10[j]]:=2; 5c8BT3g x
1:truth[witness10[j]]:=3;
0uq3J)Q5a^
end;
r8x+b C}'f
}
end; #U st.}u/F?~:F
if (pos(' is not guilty.',witness1[j])>0) then begin E0X7P'h:_#n
temp:=copy(witness1[j],1,pos(' is not guilty.',witness1[j])-1);
c:Y,g$}}
L%]9B*P\
if name[i]=temp then /CR1lo Kj6d
case truth[witness10[j]] of !P.Cn4c At
0:truth[witness10[j]]:=2;
.Pgy1jr1\
1:truth[witness10[j]]:=3; "N$fDC6x fr6X ` n/p
end
F?} i5I4h{2oy-|V
else
q*ts P
XAQd
case truth[witness10[j]] of 'Q x
\vI
0:truth[witness10[j]]:=1;
z]BS%E3^*a
2:truth[witness10[j]]:=3; *j8gm A+}!e-l
end;
Ik E Z(^&z+j
end; h MKew
end;
SO(A5_ F/T'Kd
if total2>0 then begin
+y%n T7q'z
pk
for k:=1 to m do truth0[k]:=truth[k];
/M
K+x,L.` C(s
for weekday:=1 to 7 do begin 1OnNM(Yh|Md$Q
for k:=1 to m do truth[k]:=truth0[k]; 6m#D"y;T n igu
for j:=1 to total2 do +Ts*?'pic i&Y `d
if pos(dow[weekday],witness2[j])>0 then
d0zta
P5U
case truth[witness20[j]] of
%B/tK+[9z xI
0:truth[witness20[j]]:=1;
LL tE8@]#l @
2:truth[witness20[j]]:=3;
O P7Dl/^`W
end '~/I+F
P0}_a#?H
else
I ~(hn'E'P
case truth[witness20[j]] of
pj.E'k0R%G
0:truth[witness20[j]]:=2;
;M;q _R['vshK}
1:truth[witness20[j]]:=3; jx}d"]
end;
X"h#?2z[u4u&H&\S&j
p1:=0;p2:=0;p3:=0;
y ZP W\j
for k:=1 to m do if truth[k]=1 then inc(p1); Qm6f^
^T
for k:=1 to m do if truth[k]=2 then inc(p2); C!Vf c1Hz
Pa`
for k:=1 to m do if truth[k]=3 then inc(p3);
YCa W!k U
if (p1<=m-n) and (p2<=n) and (p3=0) then begin
q U `v!Zy B?x6V9x
name0:=name[i]; a|v$Y+K
inc(resolution); 8Y"V Mo|!}Fv*}.v T
break;
8l[&R-\:H}E,}
end; d Z lR3kh$I1w*}Mj+\
end;
E }1g2YY6Q|1hc5]
end;
E~c"|/h VtMr
p1:=0;p2:=0;p3:=0;
#N4H!kaY n
for k:=1 to m do if truth[k]=1 then inc(p1);
s8V j&x H1i8J
for k:=1 to m do if truth[k]=2 then inc(p2); -H,Cd0w C7u B6k&p
for k:=1 to m do if truth[k]=3 then inc(p3); \3I n,]D3{ I
if (p1<=m-n) and (p2<=n) and (p3=0) and (name0<>name[i]) then begin S+I D4k ?1d
}M
name0:=name[i];
7\pJ*D(_-t+}%?re5\)?Y0V
inc(resolution);
-pui,`tfkT
end; 0Q2N
X"W7}
N.FY*Q2Z
end; 3_#Tk6xe
if resolution=1 then writeln(f2,name0); 8I y5G#l],|{+t
if resolution=0 then writeln(f2,'Impossible');
M(U e-f*W\
if resolution>1 then writeln(f2,'Cannot Determine'); #Cw\ y6g;z
close(f2); 0P{||4t#H)M&g/t
end. 6u X%OK `,b(U9]&b/{;o@
%P+Z ~.W {C q
+A Z FX Fk(s,X;{
=============== n5kp?gi
4{ IWz W!l
{$N+} iC]T [x)l/G
program NOIP2003_3_Tree;
kq/A)Z?Z3zq
const
F l9\7v?
maxn=30;
+v m5aa"V.{
var +f7i([Yd%`
i,j,n,d:byte; 1N i1S2v"NU
a:array[1..maxn]of byte; I&C\w ]XOT{
value:array[1..maxn,1..maxn]of comp; lY2T?
k6O
root:array[1..maxn,1..maxn]of byte;
&ZX1Z5F s'BC~V
s,temp:comp; %T NZ&B,l7nvn
f1,f2:text;fn1,fn2,fileNo:string;
i WWt;q/Q&ES$y5F
procedure preorder(p1,p2:byte);
5C0b*G't't
begin DG?k}ROH4YT
if p2>=p1 then begin
B
|V!ccH wXj o @
write(f2,root[p1,p2],' ');
zS7^ ` N2d
preorder(p1,root[p1,p2]-1); $J
h'B"T-KLif
preorder(root[p1,p2]+1,p2);
X*t"}RpMnd"B:V
end; E!G3mN1r[jr @%g
end;
%O k7RN1Yn
begin
7? I
{#Rn ?[e
write('Input fileNo:');readln(fileNo); .l m j_6O
Z
fn1:='tree.in'+fileNo;fn2:='tree.ou'+fileNo;
L ?)P+I'b r`(U F
assign(f1,fn1);reset(f1); ^o8`F'~/vT
assign(f2,fn2);rewrite(f2); 4Lt!Nh9m3I Q4boI
readln(f1,n);
WE"Y)q.D Sx%wj
Y
for i:=1 to n do read(f1,a[i]); 6nV U9GD/aC9? R;J1x3{
close(f1); EY x#T [
fillchar(value,sizeof(value),0); .M IW%j \,wN
for i:=1 to n do begin f'Xp7T&w/^~
value[i,i]:=a[i];
8?
b)ZJ+HZUS I&@
root[i,i]:=i; ie+r F `,gx
end; jXlx6WM
X
for i:=1 to n-1 do begin )svjW}.^.C a
value[i,i+1]:=a[i]+a[i+1];
tc _3~SsCl@0X[
root[i,i+1]:=i;
:B Ab)J K
end;
#o#S Y3N x i
for d:=2 to n-1 do begin
D%y7J'S V5|7O
for i:=1 to n-d do begin
z4W8V{&Kt
s:=value[i,i]+value[i+1,i+d];
I'\'OB|'J3l
_
root[i,i+d]:=i; *p WJP"v4T2?H
for j:=1 to d do begin lG'V)Q}7W
temp:=value[i+j,i+j]+value[i,i+j-1]*value[i+j+1,i+d];
*`uW/Bi
^)|
if temp>s then begin 6lh"g7jU
s:=temp;root[i,i+d]:=i+j;
2\ Fy-Rk I^
end;
Ke VR!G\:[7A
end; 4M uu5dn-X q
^fF
temp:=value[i,i+d-1]+value[i+d,i+d];
d3a?6R)O
if temp>s then begin (M)Ze.s
@ i F1pi+?.W(V
s:=temp;root[i,i+d]:=i+d+1;
D*U}:_!]x ~
end; (r:n1C/N#V
value[i,i+d]:=s;
u"?r.?+SI0b X5X
end;
fN#ku a/xW
x@
end;
Z;A EB%\w4X
writeln(f2,value[1,n]:0:0);
~,s1H)]C m S
preorder(1,n);
gI/Nl%`e*SE1l
close(f2); 1M(V0E hiN
end.
_ C I X)ICl S4v?
v&Fv ho}3E"Z
[/code]
Q3v J:j9G&M cY u
[color=White]1d`)c ]-sn2S G6z
ag0x2c:M8h l"By^
[[i] 本帖最后由 sycsim 于 2007-3-11 03:10 AM 编辑 [/i]]
YLARMY 11-3-2007 12:19 AM
[code]program NOIP2003_4_Epidemic; I{
w~ h!HW1f
const
G%h0wM/iCs6?
maxn=300;maxp=300; GW0gSS \q*j
type WAK b Vf p,ru
node=array [0..maxp] of integer; (n,q$W3N"u4h3I
var k9m\-W7\u
i,n,p,min,max,temp,s,smin:integer;
.F#e)xb,q$h|
a:array[1..maxn] of ^node; %p-~.uh4C;t
f1,f2:text;fn1,fn2,fileNo:string; }`)R#dw
procedure try(i:integer);
[
c7Em s G0G
var c {
kCe6Gdt(y
root1,root2,j,k,m,temp,s0:integer;b:node;flag:boolean;
8] z7TQ.W3N L\Vn%b @
begin
-z~5|ms8b XY6]\|.~
if a[i]^[0]<=1 then begin _t-Yy }'x
if s<smin then smin:=s;
,MN
xV jF wX
exit;
RFX vn-vmf!g%e0J
end;
){*n7h:jr2I#e;YIw
s0:=s; P ['N5\d
flag:=true; :RD
Jxy7uc
for j:=1 to a[i]^[0] do if (a[a[i]^[j]]^[0]>0) then begin 3^~oB(sb-nLY
flag:=false;
g ?$r @ ]gd
s:=s0+a[i]^[0]-1;
2R z'a2Dc
if j=1 then root1:=2 else root1:=1; 'Gt[e0t0x jMB?u
root2:=a[i]^[root1];
9QEy5H"`gC5d
temp:=a[root2]^[0];
#uQHE1?i4n
for k:=1 to temp do b[k]:=a[root2]^[k];
m$K
bl$A
for k:=1 to a[i]^[0] do M)v;b R/p4n
if (k<>j) and (k<>root1) then begin G~Pg0uX/s
for m:=1 to a[a[i]^[k]]^[0] do
d} zFh
a[root2]^[a[root2]^[0]+m]:=a[a[i]^[k]]^[m];
"Du&^(a/|K8W
a[root2]^[0]:=a[root2]^[0]+a[a[i]^[k]]^[0]; By ~mA Y
S#ZVs|
end; Kp6yTq$TY4s
try(root2); .AdD r}E]}
a[root2]^[0]:=temp; L3V'A:s s8m2Ob
for m:=1 to temp do a[root2]^[m]:=b[m]; \.H1R o;_@M
end;
:D xb$wQat
if flag then begin x0t~ u?#ik
s:=s0+a[i]^[0]-1;
rc7yA fJ
if s<smin then smin:=s; ?*p1y4i4}$Cf]
exit; (XV]`xC/jp
end; [+\ xS;qKBl
end;
W,sS6Ek8V
begin K'l?
s} ^
write('Input fileNo:');readln(fileNo); ,M ] d!WE
fn1:='Epidemic.in'+fileNo;fn2:='Epidemic.ou'+fileNo; Hj9cdyC2Bpt
assign(f1,fn1);reset(f1);assign(f2,fn2);rewrite(f2); 1lA H{A+r3P)E
readln(f1,n,p); 5O;D$M/} Q3RqV
for i:=1 to n do new(a[i]); +u)e3w A {2c7g
for i:=1 to n do a[i]^[0]:=0; -Kd u6U(t {(p6t
@
for i:=1 to p do begin
e.ZQ7c.V-I@4CF8N
readln(f1,min,max); m%aq"w(Gg0`7z
if min>max then begin
ct3\qff.a
temp:=min;min:=max;max:=temp E2tJ+g }?za
end; b C d3f$m,}*eE
W
inc(a[min]^[0]);
h AW!G;tC4Y }
a[min]^[a[min]^[0]]:=max; 1u6`l*{(R&I5o
end;
"L3W&A+S R2i:q0A;M)M)T B
close(f1); #m0lW;Os)H
x
s:=1;smin:=300;try(1); Yx'sbG
writeln(f2,smin);close(f2);
nf:F1y V*Z
end.
-qg9Q2h7u$|U_s\ _{
[/code]
X-P
U]2^k7m^
F;S
j:Qw
\3Z UqF
[color=White]s5de Uu
9YVgGl[@
i
e
[[i] 本帖最后由 sycsim 于 2007-3-11 03:09 AM 编辑 [/i]]