用Free Pascal 编程 把一张100元钞票换成10元、20元分和50元的纸币，每种至少一张，问有哪几种换法？

Question

如题所述

Answer 1

var a,b:integer;
begin
writeln(' 50Y 20Y 10Y');
for a:=0 to 2 do
for b:=0 to (10-a*5)div 2 do
writeln(a:4,b:4,10-5*a-2*b:4);
end.追问

求解(10-a*5)div 2 的含义 我就是找不准总张数

追答

上述a表示50元张数，b表示20元张数，在已知用了1张50元时，20元最多只能有(10-1*5)div 2=2 张了。