Mai intai trebuie sa te autentifici.
Cod sursa(job #202012)
| Utilizator | Data | 5 august 2008 16:21:22 | |
|---|---|---|---|
| Problema | Dusman | Scor | 100 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 1.04 kb |
var v,l:array[0..2001]of longint;
d:array[0..2000,0..2000]of longint;
n,i,j,k,m,a,b,s:longint;
f:text;
procedure dusman(p:longint);
var x:longint;
begin
x:=0;
repeat
x:=x+1;
if(l[x]=0)and(p<n)and(d[x,v[p-1]]=0)then begin l[x]:=1;
v[p]:=x;
dusman(p+1);
l[x]:=0;
end
else
if(l[x]=0)and(p=n)and(d[x,v[p-1]]=0)then begin s:=s+1;
v[p]:=x;
end;
until(x=n)or(s=k);
end;
begin
assign(f,'dusman.in');
reset(f);
read(f,n,k,m);
for i:=1 to m do
begin
read(f,a,b);
d[a,b]:=1;
d[b,a]:=1;
end;
v[0]:=0;
close(f);
dusman(1);
assign(f,'dusman.out');
rewrite(f);
for i:=1 to n do
write(f,v[i],' ');
writeln(f);
close(f);
end.
