Pagini recente » Cod sursa (job #934872) | Cod sursa (job #2190818) | Cod sursa (job #2980689) | Cod sursa (job #1375708) | Cod sursa (job #46906)
Cod sursa(job #46906)
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.