Cod sursa(job #46922)
Utilizator | Radu 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.