Cod sursa(job #46907)

Utilizator cezar305Mr. Noname cezar305 Data 3 aprilie 2007 10:43:16
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.