pascal 编程求助

来源：百度知道 编辑：UC知道 时间：2024/05/16 01:21:38
小华有六元九角钱，准备全部购买铅笔。店里有8角、6角、5角、4角一支的铅笔4种。请编写一个程序，在8角一支的铅笔必须购买一支的前提下，使买的铅笔数量最多，而钱又恰好用完。输出各种铅笔的数量。

谢谢了
我是新手 。。。。能再详细些吗？？

program lx;
var eight,six,five,four,n:integer;
begin
n:=69;
for eight:=1 to (n div 8) do{八角的至少有一支}
for six:=0 to (n div 6) do
for five:=0 to (n div 5) do
for four:=0 to (n div 4) do{让4角铅笔多循环，尽可能便宜}
if four*4+five*5+six*6+eight*8=n then
begin
writeln('eight:',eight);
writeln('six:',six);
writeln('five:',five);
writeln('four:',four);
exit;{得到一种解法，退出程序}
end;
end.

大概要多久可以参加日语1级考试

穷举，设4个循环，结果就用了