begin
integer n
n:=0//计数器,记录真话的个数
if (i<>1) then inc(n)//判断甲说的话是否为真
if (i=3) then inc(n)//判断乙说的话是否为真
if (i=4) then inc(n)//判断丙
if (i<>4) then inc(n)//判断丁
if (n=3) then//根据统计结果判断第i个人是否为小偷
begin
write("第",i,"个人是小偷")
break
end
end
一般不枚举说假话的人,因为那样不容易判断出谁是小偷。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)