逻辑问题一:谁是案犯？

 

题目描述

商场发生盗窃案，根据线索提审四个嫌疑人：甲、乙、丙、丁供词如下：
甲说：我看见是乙偷的
乙说：不是我，是丙偷的
丙说：乙在撒谎，他想陷害我
丁说：我不知道，反正我没偷
公安人员对案情进行了调查，案情真相大白。小偷就是四人之中一个，并且只有一个供词说了真话，其余三个说的是假话。谁是案犯？

输入

无输入

输出

一行：输出案犯对应的字符。甲、乙、丙、丁分别用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.