| 记录编号 |
112506 |
评测结果 |
AAAAAAAAAA |
| 题目名称 |
[NOIP 1996]砝码称重 |
最终得分 |
100 |
| 用户昵称 |
 NBWang |
是否通过 |
通过 |
| 代码语言 |
Pascal |
运行时间 |
0.005 s |
| 提交时间 |
2014-07-16 10:19:54 |
内存使用 |
0.17 MiB |
显示代码纯文本
var
a1,a2,a3,a4,a5,a6,s,sum,a,b,c,d,e,f:longint;
v:array[0..1000]of longint;
begin
assign(input,'fmcz.in');
reset(input);
assign(output,'fmcz.out');
rewrite(output);
readln(a1,a2,a3,a4,a5,a6);
for a:=0 to a1 do
for b:=0 to a2 do
for c:=0 to a3 do
for d:=0 to a4 do
for e:=0 to a5 do
for f:=0 to a6 do
v[a+b*2+c*3+d*5+e*10+f*20]:=1;
for a:=1 to 1000 do
if v[a]=1 then sum:=sum+1;
writeln(sum);
close(input);
close(output)
end.