Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Artemii_E_1000putei;
- {$APPTYPE CONSOLE}
- uses
- SysUtils;
- var
- a, b, c, mem, tr, n, m, free, i, j, f1, f2:integer;
- next:array[1..100000] of integer;
- last:array[1..100000] of integer;
- data:array[1..1000000] of integer;
- function add(x,y:integer):integer;
- begin
- data[free]:=y;
- next[free]:=last[x];
- last[x]:=free;
- free:=free+1;
- end;
- begin
- free:=1;
- read(n,m);
- for i:=1 to 1000000 do
- last[i]:=-1;
- for i:=1 to m do
- begin
- read(f1,f2);
- add(f1,f2);
- end;
- for i:=1 to n do
- begin
- c:=0;
- mem:=last[i];
- if(mem = -1) then
- break;
- while true do
- begin
- if(data[mem] > 0) then
- c:=c+1;
- mem:=next[mem];
- if(mem=-1) then
- break;
- //writeln('SUH');
- end;
- writeln(c);
- mem:=last[i];
- while true do
- begin
- if(data[mem] > 0) then
- writeln(data[mem]);
- mem:=next[mem];
- if(mem=-1) then
- break;
- end;
- end;
- readln;
- readln;
- end.
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement