说明: 2005noip解题报告 program tree; uses crt; var fi,fo:text; long,m,total:word; a,b:array[1..100] of word; i,jian:integer; all:array[0..10000] of 0..1; begin clrscr; total:=0; for i:=0 to 10000 do all[i]:=1; assign(fi,'tree.in'); reset(fi); read(fi,long); r
<u012733547> 上传 | 大小:80kb