Cod sursa(job #1342862)
| Utilizator | Data | 14 februarie 2015 16:33:51 | |
|---|---|---|---|
| Problema | Order | Scor | 60 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.61 kb |
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.