1025:统计硬币 分数: 1

题目描述

假设一堆由1分、2分、5分组成的n个硬币总面值为m分，求一共有多少种可能的组合方式（某种面值的硬币可以数量可以为0）。

输入格式

输入数据第一行有一个正整数T，表示有T组测试数据。接下来的T行，每行有两个数n，m，n和m的含义同上。

输出

对于每组测试数据，请输出可能的组合方式数，每组输出占一行。

样例输入

2
3 5
4 8

样例输出

1
2

program p1025;
var m,n,t,i,j,k,c,s:longint;
begin
readln(t);
for c:=1 to t do
begin
readln(n,m); s:=0;
for i:=0 to m do
for j:=0 to (m div 2) do
begin
k:=n-i-j;
if (i+j*2+k*5=m) and (k>=0) then s:=s+1;
end;
writeln(s);
end;
end.