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 编辑 ]