Pagini recente » Cod sursa (job #266) | Cod sursa (job #685704) | Cod sursa (job #22023) | Cod sursa (job #390996) | Cod sursa (job #46902)
Cod sursa(job #46902)
var a:array[1..30000]of integer;
n,i,j,x,s: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:=1;
j:=1;
x:=0;
s:=0;
while x<n do
begin
inc(i);
if i>n then i:=1;
if a[i]>0 then inc(s);
if s=j then
begin
write(a[i],' ');
a[i]:=-1;
inc(x);
inc(j);
s:=0;
end;
end;
close(output);
end.