Cod sursa(job #912770)

Utilizator rares96cheseliRares Cheseli rares96cheseli Data 12 martie 2013 18:38:26
Problema A+B Scor 0
Compilator fpc Status done
Runda Lista lui wefgef Marime 0.97 kb
program siruri;
type vect=array[1..10000]of integer;
var v:vect;
    n,a,b,i,r,aux,m,j,x:integer;
    f,g:text;
begin
assign(f,'sirab.in');reset(f);
assign(g,'sirab.out');rewrite(g);
readln(f,n,a,b); m:=n;
for i:=1 to n do v[i]:=i;
while i>n mod b do
begin
i:=m; x:=b;
for j:=1 to b div 2 do
                    begin
                    aux:=v[i];
                    v[i]:=v[i-x+1];
                    v[i-x+1]:=aux;
                    dec(x,2);dec(i);
                    end;
if b mod 2 =0 then i:=i-j-1
else i:=i-j-2;
dec(m,b);
end;
r:=n mod b;
if n mod b >0 then begin
                   b:=r;
                   x:=b; i:=b;
                   for j:=1 to b div 2 do
                    begin
                    aux:=v[i];
                    v[i]:=v[i-x+1];
                    v[i-x+1]:=aux;
                    dec(x,2);dec(i);
                    end;
                   end;

for i:=1 to n do write(g,v[i],' ');
close(f);close(g);
end.