砝码称重II

最新推荐文章于 2023-04-08 17:55:32 发布

SSL_GJH

最新推荐文章于 2023-04-08 17:55:32 发布

阅读量494

点赞数

分类专栏：动态规划

本文链接：https://blog.csdn.net/G2523054231/article/details/70175236

版权

动态规划专栏收录该内容

30 篇文章 1 订阅

订阅专栏

砝码称重II

Time Limit:1000MS Memory Limit:65536K
Total Submit:75 Accepted:54

Description

　　设有１克、２克、５克、10克、20克、50克的法码各若干枚，问使用这些法码可称出多少种不同的重量，设法码的总重量不超过10000克。

Input

Output

Sample Input

10 5 0 10 20 5

Sample Output

770

var
 a:array[1..6] of longint;
 f:array[0..10001] of boolean;
 n,m,j,k,l,i,ans:longint;
begin
 for i:=1 to 6 do
  read(a[i]);
 for i:=0 to a[1] do
  for j:=0 to a[2] do
   for k:=0 to a[3] do
    for l:=0 to a[4] do
     for m:=0 to a[5] do
      for n:=0 to a[6] do
      f[i+j*2+k*5+l*10+m*20+n*50]:=true;
 for i:=0 to 10001 do
  if f[i] then inc(ans);
 writeln(ans-1);
end.