peterjiang 2008-11-04 05:07:00
点我顶贴
收藏
删除
program ss；
var
a:array[0..150000]of longint；
i,j,k,l,m,n,o,p,q,r,s,t,u:longint；
begin
readln(p,o)；
for i:=0 to p-1 do a[i]:=i+1；
for i:=1 to o do
begin
readln(l,m,n)；
k:=0；
for j:=1 to l-1 do
k:=a[k]；
r:=k；
k:=a[k]；
s:=k；
for j:=l+1 to m do
k:=a[k]；
t:=k；
a[r]:=a[t]；
k:=0；
for j:=1 to n do
k:=a[k]；
u:=k；
q:=a[u]；
a[u]:=s；
a[t]:=q；
end；
k:=0；
for i:=1 to 9 do
begin
k:=a[k]；
writeln(k)；
end；
k:=a[k]；
writeln(k)；
end.