Pagini recente » Cod sursa (job #221780) | Istoria paginii runda/1313/clasament | Istoria paginii runda/3probs/clasament | Cod sursa (job #2496463) | Cod sursa (job #461545)
Cod sursa(job #461545)
program p1;
var f,g:text;
a:array[1..3900,1..3900] of shortint;
d:array[1..4000] of integer;
i,n,j,m,x,y,l:longint;
begin
assign(f,'sortaret.in');reset(f);
assign(g,'sortaret.out');rewrite(g);
read(f,n,m);
for i:=1 to m do
begin
read(f,x,y);
if a[x,y]=0 then begin a[x,y]:=1;d[y]:=d[y]+1 end;
end;
for i:=1 to n do
for j:=1 to n do
if d[j]=0 then
begin
d[j]:=-1;
write(g,j,' ');
for l:=1 to n do
if a[j,l]=1 then d[l]:=d[l]-1;
break;
end;
close(f);
close(g);
end.