Red de conocimiento informático - Problemas con los teléfonos móviles - Escrito en lenguaje VB, las gallinas y los conejos comparten una jaula con 100 patas. ¿Cuántas gallinas y conejos hay cada uno? Encuentre todas las soluciones, espere en línea

Escrito en lenguaje VB, las gallinas y los conejos comparten una jaula con 100 patas. ¿Cuántas gallinas y conejos hay cada uno? Encuentre todas las soluciones, espere en línea

Opción explícita

Subcomando privado1_Click()

Atenuar j como entero

Atenuar t como entero

Para j = 1 a 48

Para t = 1 a 24

Si 2 * j + 4 * t = 100 Entonces

Imprime "Hay un pollo :" & CStr(j), "Hay un conejo:" & CStr(t)

Finalizar si

Siguiente t

Siguiente j

Fin del subtítulo