用Free pascal编写个很简单的程序

来源：百度知道 编辑：UC知道 时间：2024/09/24 23:25:36
爸爸给小青5元(50角)买笔,只能买圆珠笔.铅笔和铅笔芯,并且每样至少买一支,总数要超过30支.圆珠笔8角一支,铅笔2角一支,铅笔芯1角一支.

var i,j,x,y:longint;a,b,c,d:real;
begin
a:=8;b:=2;c:=1;d:=50;
for i:=1 to d div a do
for j:=1 to d div b do
for x:=1 to d div c do
if (i*a+j*b+x*c<=d) and (i+j+x>30) then writeln(i,' ',j,' ',x);
end.
自己漫漫理解吧

有点像百钱百鸡问题