作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/05/16 22:24:22
Pascal语言题目 急 小明妈妈经常要小明帮忙到银行换零钱,要求1元、2元、5元、10元的都要有.
小明妈妈经常要小明帮忙到银行换零钱,要求1元、2元、5元、10元的都要有.这天,小明妈妈拿了150元钱,要小明去换30张零钱.请你帮助小明计算有多少种换法.
【输入说明】
两个整数n、m,n表示要换多少钱,m表示要换多少张?
【输出说明】
一个整数,换零钱的方案数.
【输入样例】
150 30
【输出样例】
27
(会有多次测试数据)
Pascal语言题目 急 小明妈妈经常要小明帮忙到银行换零钱,要求1元、2元、5元、10元的都要有.
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.