Pascal语言题目 急 小明妈妈经常要小明帮忙到银行换零钱,要求1元、2元、5元、10元的都要有.

Pascal语言题目 急 小明妈妈经常要小明帮忙到银行换零钱,要求1元、2元、5元、10元的都要有.
小明妈妈经常要小明帮忙到银行换零钱,要求1元、2元、5元、10元的都要有.这天,小明妈妈拿了150元钱,要小明去换30张零钱.请你帮助小明计算有多少种换法.
【输入说明】
两个整数n、m,n表示要换多少钱,m表示要换多少张?
【输出说明】
一个整数,换零钱的方案数.
【输入样例】
150 30
【输出样例】
27
（会有多次测试数据）

var n,m,a,b,c,d,s:integer;
begin
readln(n,m);
for a:=1 to n div 10 do
for b:=1 to (n-a*10)div 5 do
for c:=1 to (n-10*a-5*b) div 2 do
begin
d:=n-a*10-b*5-c*2;
if a+b+c+d=m then inc(s);
end;
writeln(s);
end.
再问： 答案不对…………
再答： 现在修改好了：
var n,m,a,b,c,d,s:integer;
begin
readln(n,m);
for a:=1 to n div 10 do
for b:=1 to (n-a*10)div 5 do
for c:=1 to (n-10*a-5*b) div 2 do
begin
d:=n-a*10-b*5-c*2;
if (a+b+c+d=m)and(d>0) then inc(s);
end;
writeln;
writeln(s);
end.

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息