Cod sursa(job #46906)
| Utilizator | Data | 3 aprilie 2007 10:41:22 | |
|---|---|---|---|
| Problema | Order | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.41 kb |
var v,x:array[1..30000]of integer;
i,j,m,p,e,lim,n,l:longint;
begin
assign(input,'order.in');reset(input);
assign(output,'order.out');rewrite(output);
readln(n);
for i:=1 to n do v[i]:=i;
x:=v;
e:=1;lim:=n;
for i:=1 to n do begin
e:=i+1;
if e>lim then e:=e mod lim;
write(v[e],' ');
for j:=e to lim-1 do v[j]:=v[j+1];
dec(lim);
end;
close(input);close(output);
end.