求强连通->缩点->floyed->检验->输出

郁闷……调了N久才过样例……

怎料一交就过了……

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

好题啊！ 一遍A.............

及其郁闷！！！

交了6遍。

第一次，以为只有一个爱心天使（连通块节点多于1个）就是无解，再改；

第二次，就第一次的错误改为连通块的个数为一就无解，依旧，再改；

第三次，题目描述中说“或”字，就改了下，输出格式中说，“和”，我就按“或”的做，又错了，还藏了第二次的那错误（又犯），再改；

第四次，第二次那错误被发现，改掉，但第三次的那个错误保留着，故而又错了，再改；

第五次，第三次的那个错误改了，但第二次那错误保留，所以，被囧吃了。。再改；

第六次，AC....就是都改了。。。

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

秒杀，

算法呢，楼下都讲了，正向反向DFS,加另一个DFS判断第二问。我丑啊。。。

贴个代码，希望别删：

**

program p1626;

const

maxn = 1000;

var

n,m,i,u,v,tot,lover,deg,s: integer;

e1,e2: array[1..maxn,1..maxn] of integer;

p1,p2,a: array[1..maxn] of integer;

u1,u2,d,b: array[1..maxn] of boolean;

have: boolean;

procedure make1(u:integer);

var

i,v: integer;

begin

u1:=true;

i:=1;

while i