Pagini recente » Cod sursa (job #2103504) | Cod sursa (job #1917735) | Cod sursa (job #2198134) | Cod sursa (job #814430) | Cod sursa (job #528246)
Cod sursa(job #528246)
program sortaret;
var a:array[0..20000,0..20000]of integer;
postordine:array[0..80000]of longint;
viz:array[0..80000]of 0..1;
n,i,nr:integer;f,g:text;
procedure citire;
var x,y,m,i:integer;
begin
readln(f,n,m);
for i:=1 to m do begin
readln(f,x,y);
inc(a[x,0]);
a[x,a[x,0]]:=y;
end;
end;
procedure dfs(x:integer);
var i:integer;
begin
viz[x]:=1;
for i:=1 to a[x,0] do
if viz[a[x,i]]=0 then dfs(a[x,i]);
inc(nr);
postordine[nr]:=x;
end;
begin
assign(f,'sortaret.in');reset(F);
assign(g,'sortaret.out');rewrite(g);
citire;
for i:=1 to n do
if viz[i]=0 then dfs(i);
for i:=n downto 1 do write(g,postordine[i],' ');
close(f);close(g);
end.