砝码称重II
Time Limit:1000MS Memory Limit:65536K
Total Submit:75 Accepted:54
Description
设有1克、2克、5克、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.