Respuesta al Ejercicio BH 64

José Enrique

He aquí la respuesta que en contró José Enrique para el ejercicio que se publicó en la edición #64.

Archivos relacionados

Respuesta BH 64.zip

Continuar leyendo

Ejercicio BH 66

Halle todos los números de dos cifras que cumplen las siguientes propiedades:

• Las cifras de las decenas deben ser 3 unidades menor que las de las unidades.
• Si ese número se le sustrae al número que se obtiene de invertir sus cifras se obtiene 27.
• El número debe ser par.

Continuar leyendo

Respuesta al Ejercicio BH 63

Eddy [delvalle@otepr.co.cu]

Enunciado:

Hay M soldados en un cerco y tienen un solo caballo. Para salir forman circularmente y comienzan a contar inicialmente por un soldado elegido al azar. Cada N soldados uno sale y el último se queda con el caballo.
Hacer un programa que permita imprimir que soldado saldrá del cerco eon el caballo si se conoce la cantidad de soldados (M) y el incremento (N) en el conteo.

#!/usr/bin/env python
cant_soldados = int(raw_input("Entre la cantidad soldados: "))
iteraciones = int(raw_input("Entre el numero escogido: "))

soldados = range(1, cant_soldados+1)

i = 0
n = 1
while len(soldados) > 1:
if i == len(soldados):
i = 0
if n == iteraciones:
del soldados[i]
n = 1
else:
n = n + 1
i = i + 1
print soldados[0]

Continuar leyendo

Ejercicio BH 64

Confeccione un programa para imprimir todos los números pares de 4 cifras formados por los d¡gitos 0,1,2,3 que cumplan la condición de que los d¡gitos que lo forman no se repitan.

Continuar leyendo

Respuesta al Ejercicio BH 59

thunder [yuniet02015@hab.jovenclub.cu]

Ejercicio:
==========
Los números 46 y 96 tienen una curiosa propiedad, su producto no se altera aunque las cifras que lo integran cambien de lugar.
46 * 96 = 4416
64 * 69 = 4416
Confeccione un programa para imprimir todos los números de dos cifras que cumplen esta propiedad.

'=========================================
'= Respuesta en Visual Basic =
'= al pequeño ejercicio =
'= de la edicion #59 =
'= de la revista =
'= BlackHat =
'=========================================

Private Sub Command1_Click()
  On Error Resume Next
  For a = 9 To 98
    num1 = a + 1
    rev1 = StrReverse(num1)
    For i = 9 To 98
      num2 = i + 1
      result1 = num1 * num2
      rev2 = StrReverse(num2)
      result2 = rev1 * rev2
      If result1 = result2 Then
        Text1.Text = Text1.Text + Str(num1) + " -" + Str(num2) + vbCrLf
        c = c + 1
        Label2.Caption = c
      End If
    Next
  Next
End Sub

Private Sub Command2_Click()
  Text1.Text = ""
  Label2.Caption = ""
  Command1.SetFocus
End Sub

Archivos relacionados

Respuesta.zip

Continuar leyendo

Ejercicio BH 62

Confeccione un programa que muestre visualmente una pelota rebotando en los bordes de la pantalla.

Continuar leyendo

Ejercicio BH 61

Consideremos un antiguo problema creado por Fibonacci o Leonardo de Pisa matemático italiano de la edad media. Se precisa conocer el número de parejas de conejos adulto resultantes de una pareja durante X meses si cada pareja adulta produce mensualmente una nueva pareja y los recien nacidos alcanzan su plena madures en el curso de un mes. NOTA: Al comenzar se contaba con una pareja de adultos.

Continuar leyendo