Cod sursa(job #1342862)

Utilizator vnedelcuVictor Andrei Nedelcu vnedelcu Data 14 februarie 2015 16:33:51
Problema Order Scor 60
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.61 kb
var n,i,j,pos:integer;
    f:text;
    v,next:array[1..30000] of integer;
begin
        assign(f,'order.in');
        reset(f);
        read(f,n);
        close(f);
        for i:=1 to n-1 do begin
                v[i]:=i;
                next[i]:=i+1
        end;
        v[n]:=n;
        next[n]:=1;
        pos:=1;
        assign(f,'order.out');
        rewrite(f);
        for i:=1 to n do begin
                for j:=1 to i-1 do
                        pos:=next[pos];
                write(f,v[next[pos]],' ');
                next[pos]:=next[next[pos]]
        end;
        close(f);
end.