Question

turbo pascal！！！！！！！！！！！！！！！！！

三人鉴定一块金属结果如下
a：不是铁，也不是钢
b: 不是铁，是锌
c:不是锌，而是铁
后证实有一人全错，有一人半对，有一人全对
问：金属是什么？；

Answer 1

此金属是铁。程序如下：
var x,a,b,c:byte;
begin
for x:=0 to 2 do
begin
a:=ord(x<>0)+ord(x<>1);
b:=ord(x<>0)+ord(x=2);
c:=ord(x<>2)+ord(x=0);
if(a+b+c=3)and(a*b*c=0)then
case x of
0:writeln('tie');
1:writeln('gang');
2:writeln('xin');
end;
end;
end.