记录编号 80914 评测结果 AAAAAAAAAA
题目名称 [NOIP 1996]砝码称重 最终得分 100
用户昵称 Gravatar翟佳麒是我孙子 是否通过 通过
代码语言 Pascal 运行时间 0.002 s
提交时间 2013-11-07 22:03:05 内存使用 0.17 MiB
显示代码纯文本
                                                         
var
z,x,c,v,b,n,q,w,e,r,t,y,p:longint;
a:array[0..1000]of boolean;
begin
assign(input,'fmcz.in');
reset(input);
assign(output,'fmcz.out');
rewrite(output);  
readln(z,x,c,v,b,n);
for q:=0 to z do
for w:=0 to x do
for e:=0 to c do
for r:=0 to v do
for t:=0 to b do
for y:=0 to n do a[q+2*w+3*e+5*r+10*t+20*y]:=true;
for q:=1 to 1000 do if a[q]=true then p:=p+1;
writeln(p);
end.