Advertisement
Guest User

Untitled

a guest
Jul 20th, 2017
50
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.07 KB | None | 0 0
  1. program Artemii_E_1000putei;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6. SysUtils;
  7.  
  8. var
  9. a, b, c, mem, tr, n, m, free, i, j, f1, f2:integer;
  10. next:array[1..100000] of integer;
  11. last:array[1..100000] of integer;
  12. data:array[1..1000000] of integer;
  13. function add(x,y:integer):integer;
  14. begin
  15. data[free]:=y;
  16. next[free]:=last[x];
  17. last[x]:=free;
  18. free:=free+1;
  19. end;
  20. begin
  21. free:=1;
  22. read(n,m);
  23. for i:=1 to 1000000 do
  24. last[i]:=-1;
  25. for i:=1 to m do
  26. begin
  27. read(f1,f2);
  28. add(f1,f2);
  29. end;
  30. for i:=1 to n do
  31. begin
  32. c:=0;
  33. mem:=last[i];
  34. if(mem = -1) then
  35. break;
  36. while true do
  37. begin
  38. if(data[mem] > 0) then
  39. c:=c+1;
  40. mem:=next[mem];
  41. if(mem=-1) then
  42. break;
  43. //writeln('SUH');
  44. end;
  45. writeln(c);
  46. mem:=last[i];
  47. while true do
  48. begin
  49. if(data[mem] > 0) then
  50. writeln(data[mem]);
  51. mem:=next[mem];
  52. if(mem=-1) then
  53. break;
  54. end;
  55. end;
  56. readln;
  57. readln;
  58. end.
  59.  
  60.  
  61.  
  62.  
  63.  
  64. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement