Cod sursa(job #57087)
Utilizator | Mr. Noname cezar305 | Data | 1 mai 2007 09:57:33 |
---|---|---|---|
Problema | Order | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.45 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;
lim:=n;e:=2;
for i:=1 to n do begin
e:=e+i-1;
if e>lim then e:=e mod lim;
if lim=1 then
e:=1;
write(v[e],' ');
for j:=e to lim-1 do v[j]:=v[j+1];
dec(lim);
end;
close(input);close(output);
end.