24点游戏

题目描述

   24点游戏是一个非常有意思的游戏，很流行，玩法很简单：给你4张牌，每张牌上有数字（其中A代表1，J代表11，Q代表12，K代表13），你可以利用数学中的加、减、乘、除以及括号想办法得到24，例如：

((A*K)-J)*Q等价于((1*13)-11)*12=24

   加减乘不用多说了，但除法必须满足能整除才能除！这样有一些是得不到24点的，所以这里只要求求出不超过24的最大值。

输入

   输入第一行N(1<=N<=5)表示有N组测试数据。每组测试数据输入4行，每行一个整数(1到13)表示牌值。

样例输入

3

3

3

3

3

1

1

1

1

12

5

13

1

样例输出

24

4

21

uses math;
var
        a,b,c,s1,s2,s3,s4,y1,y2,y3,ans,h,o,e:longint;
        v:array[1..4]of longint;
begin
        readln(a);
        for b:=1 to a do
        begin
                h:=0;
                ans:=0;
                readln(v[1]);
                readln(v[2]);
                readln(v[3]);
                readln(v[4]);
                for s1:=1 to 4 do
                begin
                        for y1:=1 to 4 do
                        begin
                                for s2:=1 to 4 do
                                begin
                                        if s1=s2 then continue;
                                        for y2:=1 to 4 do
                                        begin
                                                for s3:=1 to 4 do
                                                begin
                                                        if (s1=s3)or(s2=s3) then continue;
                                                        for y3:=1 to 4 do
                                                        begin
                                                                for s4:=1 to 4 do
                                                                begin
                                                                        if (s1=s4)or(s2=s4)or(s3=s4) then continue;
                                                                        ans:=0;
                                                                        if y1=1 then ans:=v[s1]+v[s2];
                                                                        if y1=2 then ans:=v[s1]-v[s2];
                                                                        if y1=3 then ans:=v[s1]*v[s2];
                                                                        if y1=4 then
                                                                                if (v[s2]<>0)and(v[s1] mod v[s2]=0) then
                                                                                        ans:=v[s1] div v[s2] else continue;
                                                                        if y2=1 then ans:=ans+v[s3];
                                                                        if y2=2 then ans:=ans-v[s3];
                                                                        if y2=3 then ans:=ans*v[s3];
                                                                        if y2=4 then
                                                                                if (v[s3]<>0)and(ans mod v[s3]=0) then
                                                                                        ans:=ans div v[s3] else continue;
                                                                        if y3=1 then ans:=ans+v[s4];
                                                                        if y3=2 then ans:=ans-v[s4];
                                                                        if y3=3 then ans:=ans*v[s4];
                                                                        if y3=4 then
                                                                                if (v[s4]<>0)and(ans mod v[s4]=0) then
                                                                                        ans:=ans div v[s4] else continue;
                                                                        if ans<=24 then h:=max(ans,h);
                                                                end;
                                                        end;
                                                end;
                                        end;
                                end;
                        end;
                end;
                for s1:=1 to 4 do
                begin
                        for y1:=1 to 4 do
                        begin
                                for s2:=1 to 4 do
                                begin
                                        if s1=s2 then continue;
                                        for y2:=1 to 4 do
                                        begin
                                                for s3:=1 to 4 do
                                                begin
                                                        if (s1=s3)or(s2=s3) then continue;
                                                        for y3:=1 to 4 do
                                                        begin
                                                                for s4:=1 to 4 do
                                                                begin
                                                                        if (s1=s4)or(s2=s4)or(s3=s4) then continue;
                                                                        ans:=0;
                                                                        if y1=1 then o:=v[s1]+v[s2];
                                                                        if y1=2 then o:=v[s1]-v[s2];
                                                                        if y1=3 then o:=v[s1]*v[s2];
                                                                        if y1=4 then
                                                                                if (v[s2]<>0)and(v[s1] mod v[s2]=0) then
                                                                                        o:=v[s1] div v[s2] else continue;
                                                                        if y2=1 then e:=v[s3]+v[s4];
                                                                        if y2=2 then e:=v[s3]-v[s4];
                                                                        if y2=3 then e:=v[s3]*v[s4];
                                                                        if y2=4 then
                                                                                if (v[s4]<>0)and(v[s3] mod v[s4]=0) then
                                                                                        e:=v[s3] div v[s4] else continue;
                                                                        if y3=1 then ans:=o+e;
                                                                        if y3=2 then ans:=o-e;
                                                                        if y3=3 then ans:=o*e;
                                                                        if y3=4 then
                                                                                if (e<>0)and(o mod e=0) then
                                                                                        ans:=o div e else continue;
                                                                        if ans<=24 then h:=max(ans,h);
                                                                end;
                                                        end;
                                                end;
                                        end;
                                end;
                        end;
                end;
                writeln(h);
        end;
end.