作业帮 > 综合 > 作业

把一元分成1分、2分、5分,有多少种方案?用Pascal语言编程.

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/28 05:45:09
把一元分成1分、2分、5分,有多少种方案?用Pascal语言编程.
为什么不试试用For循环语句呢
(要有方案数和各种方案)
你想要的FOR循环.对于一块钱根本不需要管什么效率,简单就好,他们想太多了.
var i,j,l,sum:integer;
begin
for i:=1to 10 do (1分的张数)
for j:=1to 5 do (2分的张数)
for l:=1to 2 do (5分的张数)
if i+2*j+5*l=10 then sum:=sum+1; (加起来刚好一元,方案加一)
writeln(sum);(输出)
end.