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)表示牌值。

样例输入

333331111125131

样例输出

24421

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.