Cod sursa(job #57087)

Utilizator cezar305Mr. 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.