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

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

pascal题目用一张一元票换1分,2分和5分的硬币,每种至少一枚,问有哪几种换法.
用循环
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.