A B C D 为 1 2 3 4
则题为 1 说我不是小偷，2说：3 是小偷 ， 3说 ：小偷肯定是4 4说：3在冤枉人
整理得 1 说1不是小偷，2说：3 是小偷 ， 3说 ：小偷肯定是4 4说：说4不是小偷
用0代表不是小偷
则为 1 0，2说：3 ， 3说 ：4 4说：0
即 0 3 4 0
放如到数组A中 枚举
pascal语言 代码如下（绝对原创 ， 手都打麻了）
program thief;
var
i,j,s:integer;
a:array[1..4] of integer;
Begin
s:=0;
for j:=1 to 4 do
read(a[j]);
for i:=1 to 4 do
begin
for j:=1 to 4
if (a[j]=i)or (a[j]=0) then s:=s+1;
if s=3 then writeln (i);
end;
End.
如有错误 那也没法 才学没多久
[ 本帖最后由 kuso 于 2008-6-9 10:35 编辑 ]
