作业帮free pascal编程题求解答（警察局抓了A 、B、C、D四名偷窃嫌疑犯,其中有一个是小偷.审问A说：“我……）警察局抓了A 、B、C、D四名偷窃嫌疑犯,其中有一个是小偷.审问A说：“我不是小偷.”B
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/11 17:28:41
free pascal编程题求解答（警察局抓了A 、B、C、D四名偷窃嫌疑犯,其中有一个是小偷.审问A说：“我……）警察局抓了A 、B、C、D四名偷窃嫌疑犯,其中有一个是小偷.审问A说：“我不是小偷.”B
free pascal编程题求解答（警察局抓了A 、B、C、D四名偷窃嫌疑犯,其中有一个是小偷.审问A说：“我……）
警察局抓了A 、B、C、D四名偷窃嫌疑犯,其中有一个是小偷.审问A说：“我不是小偷.”B说“C是小偷.”C说：“小偷肯定是D.”D说：“C在冤枉人.”现在已经知道四个人中三人说的是真话,一人说的是假话,问到底谁是小偷?,对了有赏金
free pascal编程题求解答（警察局抓了A 、B、C、D四名偷窃嫌疑犯,其中有一个是小偷.审问A说：“我……）警察局抓了A 、B、C、D四名偷窃嫌疑犯,其中有一个是小偷.审问A说：“我不是小偷.”B
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(a1)+ord(c=1)+ord(d=1)+ord(d1)=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.