用pascal编程解决该题：公鸡每只5元，母鸡每只3元，小鸡每三只一元，问一百元如何买100只鸡？

var a,b,c,i,j,k:integer;
begin
k:=3;
for i:=1 to 20 do
for j:=1 to 33 do
while k <= 300 do
begin
k:=k+3;
if (i+j+k=100) and (5*i+3*j+k*1=100) then writlen(i,j,k);
end;
end;

没有运行，大概是这样的

和店主压价

公鸡12只
母鸡8只
小鸡80只
答案2
公鸡5只
母鸡20只
小鸡75只

var
gong,mu,xiao:integer;
begin
for gong:=1 to 19 do
for mu:=1 to 33 do
begin
xiao:=(100-5*gong-3*mu)*3;
if (xiao>0)and(gong+mu+xiao=100) then writeln(gong,' ',mu,' ',xiao);
end;
end.
运行过，没问题