Pagini recente » Cod sursa (job #718485) | Cod sursa (job #302405) | Cod sursa (job #909693) | Cod sursa (job #953191) | Cod sursa (job #120454)
Cod sursa(job #120454)
program alex;
var f:text;
e:boolean;
n,m,k,i,j,q,w,d:longint;
a:array[1..1000,0..3]of integer;
b,c:array[1..1000]of integer;
begin
assign(f,'dusman.in');reset(f);
readln(f,n,k,m);
for i:=1 to m do
begin
read(f,q,w);
a[q,0]:=a[q,0]+1;
a[q,a[q,0]]:=w;
a[w,0]:=a[w,0]+1;
a[w,a[w,0]]:=q;
end;
close(f);
d:=0;
for i:=1 to n do
b[i]:=1;
repeat
j:=n;
repeat
if b[j]=n then begin
b[j]:=1;
j:=j-1;
end;
until b[j]<>n;
b[j]:=b[j]+1;
i:=0;
e:=true;
repeat
i:=i+1;
j:=i;
repeat
j:=j+1;
if b[i]=b[j] then e:=false;
until(e=false)or(j=n);
until(e=false)or(i=n-1);
if e then begin
i:=1;
e:=true;
repeat
i:=i+1;
if(a[b[i],1]=b[i-1])or(a[b[i],2]=b[i-1])or(a[b[i],3]=b[i-1]) then e:=false;
until(e=false)or(i=n);
if e=true then d:=d+1;
end;
until k=d;
assign(f,'dusman.out');rewrite(f);
for i:=1 to n do
write(f,b[i],' ');
close(f);
end.