Pagini recente » Cod sursa (job #391792) | Cod sursa (job #387839) | Cod sursa (job #349714) | Cod sursa (job #386054) | Cod sursa (job #115598)
Cod sursa(job #115598)
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:longint;
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
if (v[s[k],i]=0)and(p[i]=0) then
begin
p[i]:=1;
s[k+1]:=i;
back(k+1);
end;
p[s[k+1]]:=0;
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.