Programación de código VB. Programación de código, *** Hay varios conjuntos de ijk que satisfacen la ecuación ijk + kji = 1534, donde ijk es 0
Utilice algoritmos de enumeración.
Atenuar i como entero
Atenuar j como entero
Atenuar k como entero
Atenuar n como entero
n = 0
Para i = 0 To9
Para j = 0 a 9
Para k = 0 a 9
Si (i * 100 + j * 10 + k) + (k * 100 + j * 10 + i) = 1534 Entonces
Imprime i, j, k
n = n + 1
Finalizar si
Siguiente k
Siguiente j
Siguiente i
Imprimir n