Pagini recente » Cod sursa (job #3338187) | Cod sursa (job #3306025) | Cod sursa (job #3318856) | Cod sursa (job #1052380) | Cod sursa (job #912770)
Cod sursa(job #912770)
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.