Pagini recente » Cod sursa (job #631787) | Cod sursa (job #2858668) | Cod sursa (job #1722071) | Cod sursa (job #1886497) | Cod sursa (job #57087)
Cod sursa(job #57087)
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.