比赛 |
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.