n 分钱,把它换成一分,二分,五分硬币有多少种不同换法?(每种硬币均要有)
程序：

运行结果：

program fenyingbi;
var n,m,b1,b2,b5,i:integer;
begin
readln(n);
m:=n-8; //每种硬币至少留1枚
i:=0; for b5:=0 to (m div 5) do //设定5分币数量
for b2:=0 to ((m-b5*5) div 2) do //设定2分币数量
begin
b1:=m-b5*5-b2*2; //设定1分币数量
inc(i); //计数
writeln(i,':',b1+1:4,b2+1:4,b5+1:4); //打印结果
end;
end.