Pagini recente » Cod sursa (job #186490) | Cod sursa (job #223855) | Cod sursa (job #1013758) | Cod sursa (job #1794536) | Cod sursa (job #116576)
Cod sursa(job #116576)
program dusman;{ preONI 2008 runda 2}
label 1;
var f,g:text;
a,b,n,m,i,k,x,j,ok,nr:integer;
as,ev:boolean;
d:array[1..200,1..200] of 0..1;
st:array[1..10000] of 0..1000;
begin
assign(f,'dusman.in');reset(f);
assign(g,'dusman.out');rewrite(g);
readln(f,n,k,m) ;
for i:=1 to n do
for j:=1 to n do
d[i,j]:=0;
for i:=1 to m do
begin readln(f,a,b); d[b,a]:=1;d[a,b]:=1;end;
nr:=0;
x:=1;st[x]:=0;
while x>0 do
begin
repeat
st[x]:=st[x]+1;
if st[x]<=n then as:=true
else as:=false;
if as then if x=1 then ev:=true
else begin
ok:=0;
for i:=1 to x-1 do
if st[i]=st[x] then begin ok:=1 ;break;end;
if( d[st[x],st[x-1]]=0) and (ok=0) then ev:=true
else ev:=false;
end;
until (not as) or (as and ev);
if as then if x=n then begin nr:=nr+1;
if nr =k then begin
for i:=1 to n do
write(g,st[i],' ');
goto 1;
end end
else
begin x:=x+1;st[x]:=0; end
else x:=x-1;
end;
1:close(g);
close(f);
end.