Pagini recente » Cod sursa (job #66148) | Cod sursa (job #2222797) | Cod sursa (job #1442927) | Cod sursa (job #1025393) | Cod sursa (job #186037)
Cod sursa(job #186037)
program dusman;
var f,g:text;
v,a,b,p:array[0..10010]of longint;
n,k,m,i,j,st,dr,c,aux:longint;
function valid:longint;
var i,j,ok:longint;
begin
ok:=0;
for i:=1 to m do
if (p[a[i]]=p[b[i]]-1) or (p[a[i]]=p[b[i]]+1)then
begin
ok:=1;
break;
end;
valid:=ok;
end;
begin
assign(f,'dusman.in');
assign(g,'dusman.out');
reset(f);
rewrite(g);
read(f,n,k,m);
for i:=1 to m do
read(f,a[i],b[i]);
for i:=1 to n do v[i]:=i;
while true do
begin
for i:=1 to n do
p[v[i]]:=i;
if (valid=0)then inc(c);
if (c=k)then
begin
for i:=1 to n do write(G,v[i],' ');
break;
end;
i:=n-1;
while (i>=1)and(v[i]>v[i+1])do dec(i);
if (i=0)then break else
begin
j:=n;
while (v[j]<v[i])do dec(j);
aux:=v[i];
v[i]:=v[j];
v[j]:=aux;
st:=i+1;
dr:=n;
while (st<dr)do
begin
aux:=v[st];
v[st]:=v[dr];
v[dr]:=aux;
inc(st);
dec(dr);
end;
end;
end;
close(f);
close(g);
end.