Un número capicúa o capicúa es aquel que al intercambiar sus valores nos da el mismo número; en este caso vamos a descomponer el número obteniendo la unidad, decena y centena para luego intercambiar sus valores y compararlos con el valor inicial.

Diagrama de flujo(DFD) para mostrar número capicúa:

DFD 1.0 DESCARGA CÓDIGO

VER CÓDIGO

PSeInt - FLEXIBLE DESCARGA CÓDIGO

Algoritmo Condicional05 Escribir "Ingrese Número : " Leer Num C1 = (Num - (Num MOD 100)) / 100 R1 = Num MOD 100 C2 = (R1 - (R1 MOD 10)) / 10 R2 = R1 MOD 10 Si Num = ((R2 * 100) + (C2 * 10) + C1) Entonces Escribir "NÚMERO CAPICÚO" SiNo Escribir "NÚMERO NO CAPICÚO" Fin SiFinAlgoritmo

PSeInt - ESTRICTO DESCARGA CÓDIGO

Algoritmo Condicional05 Definir Num, C1, R1, C2, R2 como Entero; Escribir "Ingrese Número : "; Leer Num; C1

NÚMERO:

Visual Basic .Net - Consola DESCARGA CÓDIGO

Imports System.ConsoleModule Module5 Dim Num, C1, C2, R1, R2 As Integer Sub Main() Write("Ingrese Número de 3 Cifras : ") Num = ReadLine() C1 = Num \ 100 R1 = Num - (C1 * 100) C2 = R1 \ 10 R2 = R1 - (C2 * 10) If (Num = ((R2 * 100) + (C2 * 10) + C1)) Then WriteLine("NÚMERO CAPICÚO") Else WriteLine("NÚMERO NO CAPICÚO") End If ReadLine() End SubEnd Module