题目描述
用一张一元票换1分、2分和5分的硬币,每种至少一枚, 问有几种换法.
输入
无
输出
输出只有一行(这意味着末尾有一个回车符号),包括1个整数。
var y,e,w,x:longint; begin for w:=1 to 19 do for e:=1 to 47 do begin y:=100-w*5-e*2; if y>=1 then x:=x+1; end; writeln(x); end.
var e,w,x:longint; begin for w:=1 to 19 do for e:=1 to 47 do if 100-w*5-e*2>=1 then inc(x); writeln(x); end.