用循环
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.
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.
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024