1樓：樑
const
na:array [1..5] of string=('zhao','qian','sun','li','zhou');
varp:array [0..6] of longint;
f:array [1..5] of boolean;
a,b,i,c,d,e:longint; x:boolean;
begin
p[1]:=1;
p[6]:=1;
for i:=1 to 5 do
f[i]:=true;
a:=1;
for b:=2 to 5 do
begin
f[b]:=false;
p[2]:=b;
for c:=2 to 5 do
if f[c] then
begin
p[3]:=c;
f[c]:=false;
for d:=2 to 5 do
if f[d] then
begin
f[d]:=false;
p[4]:=d;
for e:=2 to 5 do
if f[e] then
begin
p[5]:=e;
p[0]:=e;
x:=false;
for i:=1 to 5 do
begin
if (p[i]=1) and ((p[i-1]=2) or (p[i+1]=2)) then x:=true;
if (p[i]=2) and (p[i-1] in [3,4]) then x:=true;
if (p[i]=3) and (p[i-1]=2) then x:=true;
if (p[i]=4) and (3 in [p[i-1],p[i+1]]) then x:=true;
end;
if x then continue;
for i:=1 to 5 do
writeln(na[p[i]]);
end;
f[d]:=true;
end;
f[c]:=true;
end;
f[b]:=true;
end;
end.
2樓：匿名使用者
左—— ——右
孫 周 錢 李 趙
推理過程：
1，從錢開始，周說錯，所以錢兩邊沒有趙，錢左邊不是孫或李，李說錯，所以孫也不在錢右邊，所以錢兩邊只能是周和李，因為李不能在錢左邊，只能在右邊，所以從左往右就是 周 錢 李。
2，根據李說，他不能挨著孫，所以只能挨著趙，於是 周 錢 李 趙3，最後一個位置就給孫了：孫 周 錢 李 趙
做個工程甲方說按預算走。幫我看看這個能做嗎？我實在不懂，請大家麻煩給看一下，謝謝啊
呵呵，這樣的條件，還想什麼，讓他滾蛋，逗你玩。這個工程，如果幹了，那只有1條路，我告訴你，回家先把房子 車都賣了，要是不夠，只能在賣孩子了，呵呵 我給你剖析一下啊，不一定非常準，但對你有提示作用。僅作研究參考！實體及工程措施費套用03年冀預算定額不取費，其中人工按冀建質 2008 280號檔案調整找...
黃豆能做爆米花嗎，豆子能做爆米花嗎
不能 炒炒挺好吃的 您好 不能，需大米才可做成爆米花 望採納，謝謝！做黃豆爆米花的方法 1 取幹黃豆適量，用 五 六十度的熱水浸泡兩三個小時，撈起濾水後晾至黃豆表面無明顯水份。2 取食用鹽約500克，放入炒鍋中，加熱翻炒至燙手 60度右 3 將發水晾乾後的黃豆放入有熱鹽的鍋內，繼續翻炒，並不時用熱鹽...
還能做朋友嗎，還能做朋友嗎？？？
曾經的伴侶，永遠不會成為現在的朋友 接受分手需要勇氣，勇於接受事實不能拖沓！交朋友與談物件一樣，有個原則，就是兩廂情願，從相交，維持，發展，都尊循這個原則。從小一起長大，與從小就是朋友不是一回事。既然 他在混 並且你已不喜歡了，這個朋友關係是難以支援的。但在目前你們還是朋友的時候，你還是要有叫他做些...