Pagini recente » Cod sursa (job #94675) | Cod sursa (job #1123103) | Cod sursa (job #484934) | Cod sursa (job #1146709) | Cod sursa (job #114965)
Cod sursa(job #114965)
var f1,f2:text;
n,k,m,x,y,nr,i:longint;
mr,u:array[1..1000] of longint;
a:array[1..1000,1..1000] of integer;
procedure back(x:longint);
var i:longint;
begin
if x=n+1 then
begin
inc(nr);
if nr=k then
begin
for i:=1 to n-1 do
write(f2,u[i],' ');
writeln(f2,u[n]);
close(f1);
close(f2);
halt;
end;
end
else
for i:=1 to n do
if (a[u[x-1],i]=0)and(mr[i]=0) then
begin
mr[i]:=1;
u[x]:=i;
back(x+1);
mr[i]:=0;
end;
end;
begin
assign(f1,'dusman.in');
reset(f1);
assign(f2,'dusman.out');
rewrite(f2);
read(f1,n,k,m);
for i:=1 to m do
begin
read(f1,x,y);
a[x,y]:=1;
a[y,x]:=1;
end;
back(1);
close(f1);
close(f2);
end.