Pagini recente » Cod sursa (job #2155891) | Cod sursa (job #102848) | Cod sursa (job #1297339) | Cod sursa (job #2289698) | Cod sursa (job #115592)
Cod sursa(job #115592)
var n,m,i,nr,a,b,sol:longint;
v:array[1..1010,1..1010]of longint;
s,p:array[1..1010] of longint;
procedure back(k:longint);
var i,j:longint;
ok:boolean;
begin
if k=n then
begin
inc(sol);
if sol=m then
begin
for i:=1 to n do
write(s[i],' ');
writeln;
close(output);
halt;
end;
end
else
begin
for i:=1 to n do
begin
ok:=true;
for j:=1 to k do
if s[j]=i then
ok:=false;
if (v[s[k],i]=0)and(ok) then
begin
p[i]:=1;
s[k+1]:=i;
back(k+1);
end;
s[k+1]:=0;
end;
end;
end;
begin
assign(input,'dusman.in');reset(input);
assign(output,'dusman.out');rewrite(output);
readln(n,m,nr);
for i:=1 to nr do
begin
readln(a,b);
v[a,b]:=1;
v[b,a]:=1;
end;
back(0);
close(input);close(output);
end.