主题：初学PASCAL请教一个问题
明月清风
[专家分：0] 发布于 2009-02-17 14:05:00
请用PASCAL编程求解
警察局抓了A,B,C,D四名偷窃嫌疑犯，其中有一人是小偷。审问中A说：“我不是小偷。”
B说“C是小偷。” C说“小偷肯定是D。” D说“C在冤枉人。”现在已经知道四个人中
三人说的是真话，一人说的是假话，问到底谁是小偷?
回复列表 （共4个回复）
沙发
pengzike [专家分：50] 发布于 2009-02-19 14:57:00
助人为乐吧!
program thief;
var thief:char;
begin
for thief:='a'to 'd'do
if ord(thief<>'a')+ord(thief='c')+ord(thief='d')+ord(thief<>'d')=3
then writeln('The thief is: ',thief);
readln
end.
板凳
huxuming [专家分：20] 发布于 2009-02-20 19:48:00
你在泉州第一中学做过了吧，这道题那里有的。
program zhuaxiaotou;
begin
writeln('C');
end.
3 楼
QIUBO [专家分：0] 发布于 2009-02-22 15:42:00
一道逻辑推断题!很简单的！
4 楼
明月清风 [专家分：0] 发布于 2009-02-23 15:21:00
强烈鄙视你这种人!~
就会说空话，不给程序给个算法也可以赛!
我来回复
您所在位置：