?? ac1303.pas
字號:
program ural1303;
const
maxm=5000;
var
l,a:array[0..maxm]of longint;
m,i,j,x,r,now,s:longint;
begin
read(m);
for i:=1 to m do
l[i]:=m;
repeat
read(i,j);
if j<=0 then continue;
if j>m then x:=m else x:=j;
if i<l[x] then begin
l[x]:=i;
if x=m then r:=j;
end;
until (i=0) and (j=0);
repeat
x:=m;
while l[x]>now do dec(x);
if x=now then begin
writeln('No solution');
halt;
end;
inc(s);
a[s]:=x;
now:=x;
until now=m;
writeln(s);
for i:=1 to s do begin
write(l[a[i]],' ');
if a[i]=m then writeln(r) else writeln(a[i]);
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -