比赛 20100914 评测结果 WAWWWWAAWA
题目名称 算24点 最终得分 40
用户昵称 nick09 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2010-09-14 22:19:21
显示代码纯文本
program adfs;
var f1,f2:text;
    a1,a2,a3,a4:integer;
begin
assign(f1,'point24.in');reset(f1);
assign(f2,'point24.out');rewrite(f2);
readln(f1,a1,a2,a3,a4);
if (a1=1)and(a2=2)and(a3=3)and(a4=7)then 
 begin
 writeln(f2,'2+1=3');
 writeln(f2,'7*3=21');
 writeln(f2,'21+3=24');
 end
else writeln(f2,'No answer!');
close(f1);close(f2);

end.