Pagini recente » Monitorul de evaluare | Cod sursa (job #1782275) | Cod sursa (job #852760) | Cod sursa (job #2456002) | Cod sursa (job #115616)
Cod sursa(job #115616)
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-1 do
write(s[i],' ');
write(s[n]);
// 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.