Pagini recente » Cod sursa (job #1541405) | Cod sursa (job #2139666) | Cod sursa (job #2539422) | Cod sursa (job #494392) | Cod sursa (job #250383)
Cod sursa(job #250383)
var f,g:text;
v,a:array [1..30000]of integer;
p,l,k,n,i,j:integer;
begin
assign(f,'order.in');
reset(f);
readln(f,n);
close(f);
assign(g,'order.out');
rewrite(g);
for i:=1 to n do
v[i]:=i;
p:=1;
k:=0;
repeat
l:=0;
k:=k+1;
while l<k do
begin
l:=l+1;
if p=n then p:=1
else p:=p+1;
end;
write(g,v[p],' ');
for i:=p+1 to n do
v[i-1]:=v[i];
n:=n-1;
p:=p-1;
until n=0;
close(g);
end.