Pagini recente » Cod sursa (job #2415497) | Cod sursa (job #3289311) | Cod sursa (job #2271723) | Cod sursa (job #2936231) | Cod sursa (job #1342862)
var n,i,j,pos:integer;
f:text;
v,next:array[1..30000] of integer;
begin
assign(f,'order.in');
reset(f);
read(f,n);
close(f);
for i:=1 to n-1 do begin
v[i]:=i;
next[i]:=i+1
end;
v[n]:=n;
next[n]:=1;
pos:=1;
assign(f,'order.out');
rewrite(f);
for i:=1 to n do begin
for j:=1 to i-1 do
pos:=next[pos];
write(f,v[next[pos]],' ');
next[pos]:=next[next[pos]]
end;
close(f);
end.