Pagini recente » Cod sursa (job #163528) | Cod sursa (job #697906) | Cod sursa (job #1696340) | Cod sursa (job #2054985) | Cod sursa (job #115445)
Cod sursa(job #115445)
var v,l:array[0..2001]of longint;
d:array[0..2000,0..2000]of longint;
n,i,j,k,m,a,b,s:longint;
f:text;
procedure dusman(p:longint);
var x:longint;
begin
x:=0;
repeat
x:=x+1;
if(l[x]=0)and(p<n)and(d[x,v[p-1]]=0)then begin l[x]:=1;
v[p]:=x;
dusman(p+1);
l[x]:=0;
end
else
if(l[x]=0)and(p=n)and(d[x,v[p-1]]=0)then begin s:=s+1;
v[p]:=x;
end;
until(x=n)or(s=k);
end;
begin
assign(f,'dusman.in');
reset(f);
read(f,n,k,m);
for i:=1 to m do
begin
read(f,a,b);
d[a,b]:=1;
d[b,a]:=1;
end;
v[0]:=0;
close(f);
dusman(1);
assign(f,'dusman.out');
rewrite(f);
for i:=1 to n do
write(f,v[i],' ');
writeln(f);
close(f);
end.