急急急!!!!!!!!!如何用pascal的循环语句编程(题目见里)

来源：百度知道 编辑：UC知道 时间：2024/07/08 01:52:47
警察局抓了a,b,c,d四名偷窃嫌疑犯，其中有一人是小偷，审问中A说：“我不是小偷”，B说：“C是小偷”，C说：“小偷肯定是D ”，D说：“C冤枉人”现在已经知道四人中三人说的是真话，一人说假话，问到底谁是小偷。
请给程序!
用循环语句!!!!!!!!!

穷举

程序头不定义了

设 0为不是小偷 1为是
for a:=0 to 1 do
..for b:=0 to 1 do
....for c:=0 to 1 do
......for d:=0 to 1 do
.........begin
...........n:=ord(a=0)+ord(c=1)+ord(d=1)+ord(d=0)//n为里面说实话的人的个数
...........if n=3 then
.............begin
...............if a=1 then write(a);
...............if b=1 then write(b);
...............if c=1 then write(c);
...............if d=1 then write(d);
.............end;
..........end;
end.