pascal问题一道

2)将100圆兑换为20，10，5，2，1五种不同面额的纸币，输出每行一种换法，按前面的顺序，两两空一格，最后输出换法的总数。

 

就用循环解决，就1道20分，每一行是什么要解出来！

先附上运行截图

附上程序

var
  a, b, c, d, e: Integer; //五种面值
begin
  for a := 1 to 5 do //面值20元, 最多5张
    for b := 1 to 10 do //面值10元, 最多10张
    for c := 1 to 5 do //面值5元, 最多20张
    for d := 1 to 50 do //面值2元, 最多50张
    for e := 1 to 100 do //面值1元, 最多100张
    //如果枚举的各个面值的钱币总和是100元
    if 20 * a + 10 * b + 5 * c + 2 * d + e = 100 then
    Writeln('20元: ', a, '张 10元: ', b, '张 5元: ',
    c, '张 2元: ', d, '张 1元: ', e, '张');//输出
  Readln;//暂停程序, 方便阅读
end.

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

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