Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- begin
- read(n);
- for j:=1 to n do
- for i:=1 to n do
- z[j]:=z[j]+g[i,j];
- v:=0;
- k:=0;
- for i:=1 to n do
- if z[i]=0 then begin v:=i; z[i]:=-1;
- break;
- end;
- whilev>0 do
- begin
- k:=k+1;
- p[k]:=v;
- for i:=1 ton do
- if g[v,i]=1 then z[i]:=z[i]-1;
- v:=0;
- for i:=1 to n do
- if z[i]=0 then begin v:=i; z[i]:=-1;
- break;
- end;
- end;
- if k<n then writeln('No')
- else begin writeln('Yes');
- for i:=1 to k do
- write(p[i],' ');
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement