Pagini recente » Cod sursa (job #741114) | Cod sursa (job #2005757) | Cod sursa (job #406929) | Cod sursa (job #967534) | Cod sursa (job #223576)
Cod sursa(job #223576)
var f,g:text;
a:array[0..1010,0..3]of longint;
b,v:array[0..1010]of longint;
n,k,m,x,y,i,c:longint;
procedure back(p:longint);
var i:longint;
begin
if (p-1=n)then
inc(c)else
if (c<>k)then
begin
for i:=1 to n do
begin
if (b[i]=0)and(a[i,1]<>v[p-1])and(a[i,2]<>v[p-1])and(a[i,3]<>v[p-1])then
begin
b[i]:=1;
v[p]:=i;
back(p+1);
if (c=k)then break;
b[i]:=0;
end;
end;
end;
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
begin
read(f,x,y);
inc(a[x,0]);
a[x,a[x,0]]:=y;
inc(a[y,0]);
a[y,a[y,0]]:=x;
end;
v[0]:=n+1;
back(1);
for i:=1 to n do write(g,v[i],' ');
close(f);
close(g);
end.