记录编号 22226 评测结果 AAAAAAAAAA
题目名称 邮递员 最终得分 100
用户昵称 GravatarDes. 是否通过 通过
代码语言 Pascal 运行时间 0.004 s
提交时间 2010-11-17 20:46:07 内存使用 0.32 MiB
显示代码纯文本
  1. program carrier;
  2. var l:array[1..20000]of longint;
  3. a:array[1..200,1..200]of integer;
  4. t,k,m,n,i1,i2,i,j:longint;
  5. procedure sou(i,j:longint);
  6. var t,k:longint;
  7. begin
  8. {if j=m+1 then
  9. begin
  10. writeln(m);
  11. for t:=1 to m+1 do
  12. write(l[t],' ');
  13. close(output);
  14. halt;
  15. end;}
  16. for t:=1 to n do
  17. begin
  18. if a[i,t]>=1 then
  19. begin
  20. inc(i2);
  21. dec(a[i,t]);
  22. dec(a[t,i]);
  23. sou(t,i2);
  24. end;
  25. end;
  26. inc(i1);
  27. l[i1]:=i;
  28. end;
  29. begin
  30. assign(input,'carrier.in');
  31. reset(input);
  32. assign(output,'carrier.out');
  33. rewrite(output);
  34. readln(n,m);
  35. for t:=1 to n do
  36. readln;
  37. for t:=1 to m do
  38. begin
  39. readln(i,j);
  40. inc(a[i,j]);
  41. inc(a[j,i]);
  42. end;
  43. i1:=0;
  44. i2:=0;
  45. sou(1,1);
  46. writeln(m);
  47. for t:=m+1 downto 1 do
  48. write(l[t],' ');
  49. close(output);
  50. end.
  51.