题目描述
商场发生盗窃案,根据线索提审四个嫌疑人:甲、乙、丙、丁供词如下:
甲说:我看见是乙偷的
乙说:不是我,是丙偷的
丙说:乙在撒谎,他想陷害我
丁说:我不知道,反正我没偷
公安人员对案情进行了调查,案情真相大白。小偷就是四人之中一个,并且只有一个供词说了真话,其余三个说的是假话。谁是案犯?
输入
无输入
输出
一行:输出案犯对应的字符。甲、乙、丙、丁分别用A、B、C、D表示
样例输入
样例输出
A或B或C或D
var
a,b,c,d:longint;
begin
for a:=0 to 1 do
for b:=0 to 1 do
for c:=0 to 1 do
for d:=0 to 1 do
if (ord(b=1)+ord(c=1)+ord(c=0)+ord(d=0)=1)and(a+b+c+d=1) then
case a*1000+b*100+c*10+d of
1000:writeln('A');
100 :writeln('B');
10 :writeln('C');
1 :writeln('D');
end;
end.