$删边$

Description
　　连通图是指任意两个顶点都有路径可互相到达的图。
　　读入一个无向的连通图，输出最多能删掉多少条边，使这个图仍然连通。

Input
　　第一行为图的顶点数N(1<=N<=100)和边数M，用一个空格隔开，图中的顶点用1到N的整数）编号。接下来的M行，每行用两个数V1,V2表示一条边。V1,V2用一个空格隔开，表示这条边所连接的顶点的编号(V1<>V2)，同一条边不会重复出现。

Output
　　输出最多能删掉的边数。

Sample Input

4 6
1 2
1 3
1 4
2 3
2 4
3 4

Sample Output

3

本人一眼最小生成树，打崩了只有75pts
后经dalao提示想明白了，只要考虑n和m就行了

答案其实就是m-(n-1)，因为要使删掉的边最多，那么只需要把给定的图除一棵最小生成树上的边全部删掉即可那么剩下的边一定是(n-1)条。

Var n,m:longint;
Begin
        read(n,m);
        write(m-n+1);
end.

$骑士问题$

Description
　　在一个标准 8*8 的国际象棋棋盘上，棋盘中有些格子可能是有障碍物的。已知骑士的初始位置和目标位置，你的任务是计算骑士最少需要多少步可以从初始位置到达目标位置。有障碍物的格子当然不可以到达。
　　标准的8*8的国际象棋中每一个格子可以用唯一的编号确定。行用1-8这8个数字依次表示，列用’a’-’h’这8个字母依次表示。例如左下图的骑士所在位置（图中有n的格子）的编号为“d4”（注意‘d’和‘4’之间没有空格）。 　　
　　我们知道国际象棋中的骑士可以按“L”路线移动（一个方向走2个格子，接着垂直方向走1个格子）。因此，如左上图中的骑士（位于d4），可以到达位置c2,b3,b5,c6,e6,f5,f3,e2(图中有‘x’标记的格子)。此外，骑士不能够移出棋盘。
　　骑士可以按照移动规则自由地在棋盘上没有障碍物的格子中移动。右上图给出了一个骑士移动的例子。初始格子用‘n’标记，目标格子用‘N’标记，有障碍物的格子用‘b’标记。一个可行的移动序列在图中用数字标记出来。（a1,b3,a5,c6,e5,g4,h2,f1）。总共需要7步才能完成。事实上，这也就是最小的步数了。

Input
　　输入文件包括1个或多个测试数据。
　　每一个测试数据的第一行是一个整数b(-1<=b<=62)，表示棋盘中有障碍物的格子数目，当b=-1时，输入文件结束。
　　第二行含b个不同的障碍物的格子编号，用空格隔开。当b=0时，此行为空行。
　　第三行是骑士的初始格子和目标格子的编号，也是用空格隔开。初始格子和目标格子是不同的，且都没有障碍物。

Output
　　对于每个数据，输出一行。格式：Board n: m moves，其中n表示数据的序号（从1开始）m表示骑士所用的最小的步数。
　　如果骑士无法到达目标格子，输出：Board n: not reachable

Sample Input

10
c1 d1 d5 c2 c3 c4 d2 d3 d4 c5
a1 f1
0

c1 b3
2
b3 c2
a1 b2
-1

Sample Output

Board 1: 7 moves
Board 2: 1 moves
Board 3: not reachable

爆搜即可）

Const go:array[1..8,1..2] of longint=((-2,-1),(-1,-2),(-2,1),(-1,2),(1,-2),(2,-1),(2,1),(1,2));
Var b,i,j,x,y,sx,sy,ex,ey,min:longint;
    maze:array[0..15,0..15] of boolean;
    flag:array[0..15,0..15] of longint;
    ch:char;
    s:string;
procedure search(x,y,t:longint);
Var i,xx,yy:longint;
Begin
        if (t<flag[x][y]) or (flag[x][y]=0) then
        Begin
                flag[x][y]:=t;
        end
        else
        Begin
                exit;
        end;

        if (x=ex) and (y=ey) then
        Begin
                if t<min then
                Begin
                        min:=t;
                end;
                exit;
        end;

        for i:=1 to 8 do
        Begin
                xx:=x+go[i][1];
                yy:=y+go[i][2];
                if (xx>0) and (yy>0) and (xx<=8) and (yy<=8) and
                   (not maze[xx][yy]) then
                Begin
                        search(xx,yy,t+1);
                end;
        end;
end;

Begin
        repeat
                readln(b);
                if b=-1 then
                Begin
                        halt;
                end;
                j:=j+1;

                fillchar(maze,sizeof(maze),0);
                readln(s);
                for i:=1 to length(s) do
                Begin
                        if s[i] in ['a'..'h'] then
                        Begin
                                x:=ord(s[i])-96;
                        end
                        else if s[i] in ['1'..'8'] then
                        Begin
                                y:=ord(s[i])-48;
                                maze[x][y]:=true;
                        end;
                end;

                readln(s);
                sx:=ord(s[1])-96;
                sy:=ord(s[2])-48;
                ex:=ord(s[4])-96;
                ey:=ord(s[5])-48;

                min:=$7FFFFFFF;
                fillchar(flag,sizeof(flag),0);
                search(sx,sy,0);

                if min<>2147483647 then
                Begin
                        writeln('Board ',j,': ',min,' moves');
                end
                else
                Begin
                        writeln('Board ',j,': not reachable');
                end;
        until 0=1;
end.

然后就切掉啦）