UC知道一道free pascal难题
来源：百度知道 编辑：UC知道 时间：2024/05/28 15:12:28
题目：要将一张100元的大钞票换成等值的10元，5元,2元一张的小票。要求每次换成40张小钞票，没种至少一张。编程输出所有可能的换法，程序应适当考虑减少重复次数。
var i,j:longint;
begin
for i:=1 to 9 do
for j:=1 to 17 do
if 10*i+5*j+2*(40-i-j)=100 then
writeln(i,' ',j,' ',40-i-j);
end.
progrma xx1;
var
a,b,c:integer;
begin
for a:=1 to 9 do
for b:=1 to 17 do
begin
c:=40-a-b;
if a*10+b*5+c*2=400 then write('10:',a,' 5:',b,' 2:',c);
end.
好难哦!我也不懂!