ne C procedure visit( k: integer); var t: integer; begin id := id +1; val[k]:= id; write(name[k]); if (k = V and a[k,1]) then om Exercise 6.5 Zo write(“we’ve got one Hamiltonian cycle”); Si nh Vi en else for t:= to V if a[k, t] then if val[k]= then visit(t); id := id –1; val[k] := end; SinhVienZone.com id :=0; for k:= to V val[k]:=0; visit(1); https://fb.com/sinhvienzonevn