Cod sursa(job #250383)

Utilizator valytgjiu91stancu vlad valytgjiu91 Data 30 ianuarie 2009 20:10:52
Problema Order Scor 55
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.42 kb
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.