pascal题目用一张一元票换1分,2分和5分的硬币,每种至少一枚, 问有哪几种换法。 求详细解法

Question

如题所述

Answer 1

用循环
var
a,b,c,d:real;
begin
a:=1;
for b:=1 to 100 do
for c:=1 to 50 do
for d:=1 to 20 do
if ((0.01*b+0.02*c+0.05*d)=1) then
writeln(b,'',c,'',d);
readln;
end.追问

还是不太懂，能再详细点不- +

追答

额
那个设一个循环、
b是1分，所以在1－－100枚之间
c是2分，数量在1－－50之间
d是5分，数量在1－－20枚之间
当他们的总和为一元时，就输出他们
这方法最简单　　了

本回答被提问者采纳

Answer 2

var
a,b,c,m:integer;
begin
for a:=1 to 100 do
for b:=1 to 50 do
for c:=1 to 20 do
if (a+2*b+5*c=100) then m:=m+1;
write(m)
end.