Cod sursa(job #46922)

Utilizator raduzerRadu Zernoveanu raduzer Data 3 aprilie 2007 10:59:12
Problema Order Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.56 kb
var a:array[1..30000]of integer;
    n,i,j,x,s,l:integer;
begin
     assign(input,'order.in');
     reset(input);
     assign(output,'order.out');
     rewrite(output);
     readln(n);
     for i:=1 to n do a[i]:=i;
     i:=2;
     j:=1;
     while n>0 do
     begin
          i:=i+j-1;
          i:=i mod n;
          if i=0 then i:=1;
          write(a[i],' ');
          for l:=i+1 to n do
          begin
               a[l-1]:=a[l];
          end;
          a[n]:=0;
          n:=n-1;
          j:=j+1;
     end;


close(output);
end.