Cod sursa(job #115718)
Utilizator | Andrei Purice Protoman | Data | 16 decembrie 2007 20:59:43 |
---|---|---|---|
Problema | Dusman | Scor | 100 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 1.24 kb |
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.