这道题和上一道题不是一样么。。。。

我用上一道题的代码原封不动得交了上去。。。结果就AC了。。。。
这是我的源代码:
var
a:array[0..300,0..300] of boolean;
b:array[0..300] of boolean;
i,j,n,k,m,ans:longint;
begin
fillchar(a,sizeof(a),false);
fillchar(b,sizeof(b),true);
readln(n);
for i:=1 to n do
begin
read(j);
while j<>0 do
begin
a[i,j]:=true;
read(j);
end;
end;
for i:=1 to n do
for j:=1 to n do
for k:=1 to n do
if a[j,i] and a[i,k] then
a[j,k]:=true;
ans:=0;
for i:=1 to n do
if b[i] then
begin
inc(ans);
for j:=i+1 to n do
if a[i,j] then
b[j]:=false;
end;
writeln(ans);
end.

7 条评论

  • @ 2017-03-19 14:02:12

    已经更新P1022与P1023的数据

  • @ 2016-07-22 19:43:04

    我交了一个有问题的代码,竟然AC了!数据水到让人难以置信!

  • @ 2015-10-22 17:41:31

    vijos的这个题目数据很水
    同样的代码在codevs上就过不了
    http://codevs.cn/problem/2604/
    题目是一样的
    可以去试试

  • @ 2015-02-28 21:51:23

    感谢上一题时有人提醒我过了这题,__把代码粘贴到下一题直接提交即可……__
    否则刚才我就去__睡觉了__
    不对,我还要__赶寒假作业__
    还有2道物理题,一张化学试卷
    至于语文作文,英语作文阅读的就算了

  • @ 2014-12-11 20:51:35

    +10086

  • @ 2014-10-21 12:50:34

    Me too= =

  • @ 2014-09-27 09:11:44

    我也是... - - |||

  • 1

信息

ID
1023
难度
4
分类
图结构 | 强连通分量 点击显示
标签
递交数
4310
已通过
1967
通过率
46%
被复制
11
上传者