liulei626 2008-11-10 05:47:00
点我顶贴
收藏
删除
8输出 1
9，10 保护错误
program lx；
type
t1=array[1..20000] of integer；
var
a:t1； i:integer；
j,k,m,n,s:int64；
procedure xi(a:t1)；
var
i,j,k,m:integer；
c:t1； q:boolean；
begin
repeat
inc(s)；
c:=a；
for i:=1to n do
begin
j:=i*2；
a[j-1]:=c[i+n]；
a[j]:=c[i]；
end；
q:=true；
for i:=1 to 2*n do
if a[i]<>i then q:=false；
until q=true；
if q then begin writeln(s)； halt； end；
end；
begin
readln(n)；
for i:=1 to 2*n do
a[i]:=i；
s:=0；
xi(a)；
end.