比赛 NOIP_4 评测结果 WAWWWWAAWW
题目名称 算24点 最终得分 30
用户昵称 E.M.B.E.R 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2008-09-19 21:14:44
显示代码纯文本
program EmberAsh;
const
ch:array[1..4]of char=('+','-','*','/');
var
i,j,k,ss,tail:longint;
c1,c2,c3,c4:integer;
a1,a2,a3,a4:integer;
b1,b2,b3,b4,max1,max2,max3:integer;
t:array[1..3]of integer;
o:array[1..4]of integer;{operation}
b:array[1..4]of integer;

BEGIN
assign(input,'point24.in');reset(input);
assign(output,'point24.out');rewrite(output);
{readln(t[1],t[2],t[3],t[4]);
for c1:=1 to 4 do
for c2:=1 to 4 do
for c3:=1 to 4 do
  begin
  o[1]:=c1;o[2]:=c2;o[3]:=c3;
  b[1]:=t[1];b[2]:=t[2];b[3]:=t[3];b[4]:=t[4];
  for i:=1 to 3 do
    begin
    if o[i]>=3 then
      begin
      if o[i]=3 then
        begin
        ss:=t[i]*t[i+1];
        b[i]:=0;
        b[i+1]:=0;
        b[i]:=ss;
        end;
      if o[i]=4 then
        if (b[i]<>0)and(b[i+1]<>0) then
          begin
          if b[i] mod b[i+1]
          ss:=b[i] div b[i+1];
          end;
      end;
    end;
  end;}
writeln('No answer!');
close(input);close(output);
END.