你真搞笑PASCAL支持连等？连等不是这么玩的 if (a=b) and (b=c) then ...... 这才是连等，哪有a=b=c的？ 举个例子。a=b=c=5 那么Pascal先看第一个：a=b，所以返回1（true） 然后看1=c，不成立，然后返回0（false） 最后不执行then后面的内容
给你个正确的吧 program ec3_21; var a,b,c:integer; begin readln(a,b,c); if (a=b)and(b=c)and（c=b) then writeln(DB) else if (a<>c)and(a<>b)and(b<>c) then writeln(YB) else writeln(DY); end. 楼主这是在做判断三角形吧？去年做过
自傷無色
