free pascal编程题求解答（警察局抓了A 、B、C、D四名偷窃嫌疑犯，其中有一个是小偷。审问A说：“我……）

是C
如果A说的是真话 那么小偷是B 由此可推出D说的也是真话
如果B说的是真话 那么C说的也是真话
如果C说的是真话 那么B说的是假话 小偷不是D D说的就是真话
如果D说的是真话 那么B说的是假话 就不是D C说的是假话 那么是C偷的 所以A说的也是假话

var
a,b,c,d:integer;
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 (a+b+c+d=1) then
if ord(a<>1)+ord(c=1)+ord(d=1)+ord(d<>1)=3 then
begin
if a=1 then writeln('A is killer.');
if b=1 then writeln('B is killer.');
if c=1 then writeln('C is killer.');
if d=1 then writeln('D is killer.');
end;
readln;
end.

C是小偷

:?❼❻六四⒌⑤≯≌°㏒δフホベベッョ「。ㅍㅌㅋㅗ㈀㈂㈃㈌㉸㈈㈊㈁┈㊚▔▕☾○ΔΠΣΣÐÐÓÔ÷÷þǔǔæa:vhwjɔ:ɔiはたてどばゃゅゐ

c