Advertisement
Guest User

Untitled

a guest
Jan 19th, 2017
84
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.46 KB | None | 0 0
  1. var
  2. begin
  3. read(n);
  4.  
  5. for j:=1 to n do
  6. for i:=1 to n do
  7. z[j]:=z[j]+g[i,j];
  8. v:=0;
  9. k:=0;
  10. for i:=1 to n do
  11. if z[i]=0 then begin v:=i; z[i]:=-1;
  12. break;
  13. end;
  14. whilev>0 do
  15. begin
  16. k:=k+1;
  17. p[k]:=v;
  18. for i:=1 ton do
  19. if g[v,i]=1 then z[i]:=z[i]-1;
  20. v:=0;
  21. for i:=1 to n do
  22. if z[i]=0 then begin v:=i; z[i]:=-1;
  23. break;
  24. end;
  25. end;
  26.  
  27.  
  28. if k<n then writeln('No')
  29. else begin writeln('Yes');
  30. for i:=1 to k do
  31. write(p[i],' ');
  32. end;
  33. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement