有穿红、黄、蓝、白、紫五种不同运动服的五支队伍参加比赛，

来源：百度知道 编辑：UC知道 时间：2024/05/31 19:30:29
有A.B.C.D.E五位小朋友猜名次，每人只准猜两支运动队的名次
A.猜：紫队第二，黄队第三
B.蓝队第二，红队第四
C.红队第一，白队第五
D.蓝队第三，白队第四
E.黄队第二，紫队第五
猜完后发现每人都猜对了一个队的的名次，并且每队的名次只有一人猜对，请判断他们各猜对了哪个队的名次？

红队第一，蓝队第二，黄队第三，白队第四，紫队第五

红队第一 紫队第五 蓝队第二 白队第四
黄队第三
A猜对 黄队
B猜对 蓝队
C猜对 红队
D猜对 白队
E猜对 紫队

program a;
var
hong, huang, nan, bai, he: integer;
begin
for hong:=1 to 5 do
for huang:=1 to 5 do
for nan:=1 to 5 do
for bai:=1 to 5 do begin
he:=15-hong-huang-nan-bai;
if (hong*huang*nan*bai*he=120) and
(ord(he=2)+ord(huang=3)=1) and
(ord(nan=2)+ord(hong=3)=1)and
(ord(hong=1)+ord(bai=5)=1)and
(ord(nan=3)+ord(bai=4)=1) and
(ord(huang=2)+ord(he=5)=1) then
writeln(hong,' ', huang,' ', nan,' ', bai,' ',he);
end;
end.