El problema de comprar 100 pollos por 100 yuanes, necesidad urgente de programación

Supongamos que x, y y z representan el número de gallos, gallinas y polluelos respectivamente. Entonces x no excederá 20, y no excederá 33 y z no excederá 100.

Se establecen las siguientes dos ecuaciones:

x y z=100

5x 3y z/3=100

Elimina z de las dos ecuaciones simultáneas Obtener: 7x 4y=100

El programa escrito en pascal es el siguiente:

var

x, y, z: byte;

comenzar

para x:=1 a 20 hacer para y:=1 a 33 hacer

si (7*x 4*y=100)y(100- x-ygt; =0) luego comienza

z：=100-x-y;

writeln(x: 4, y: 4, z: 4); p> fin;

readln;

fin.