El problema de las gallinas y los conejos en la misma jaula se resuelve usando la programación Vb. Hay 100 cabezas en la parte superior y 300 pies en la parte inferior. Para preguntar cuántas gallinas y conejos hay, debes usar for.
Private Sub Command1_Click()
'Problema del pollo y el conejo en la misma jaula
Dim Cock As Integer
Dim Rab As Integer
Para Polla = 0 A 100
Rab = 100 - Polla
Si Polla * 2 + Rab * 4 = 300 Entonces 'El pollo tiene 2 patas, el conejo tiene 4 patas
Imprimir "Entre ellas gallinas" & Gallo & "Sólo, conejos" & Rab & "Sólo"
Fin Si
Siguiente
Fin del subtítulo