Algoritmo en pseint para encontrar la suma de las cifras de un número de 6 dígitos que termina en 1 y es el triple de otro que empieza en luno (1) . Un ejemplo son los números 100.007 y 300.021 (suma de cifras = 6). Se adjunta imagen de salida en pantalla del programa y diagrama de flujo.
Algoritmo sumaDeLas6cifrasDelNumero
- // Definir e inicializar variables
Definir NuevoNum,numOrig,suma Como Real
Definir continuar,NuevoNumEnC,numOrigEnC,cifra2,cifra,digito Como Caracter
continuar <- 's'
- // Un entero de 6 cifras empieza desde 100 mil hasta 999 mil 999
NuevoNum <- 100000
numOrig <- 0
suma <- 0
- // Buscar el primer número que cumpla con las condiciones y sumar sus cifras
Repetir
NuevoNum <- NuevoNum+1
NuevoNumEnC <- ConvertirATexto(NuevoNum)
- // Validar que el nuevo número termine en 1
cifra <- SUBCADENA(NuevoNumEnC,6,6)
Si cifra='1' Entonces
- // Validar que el número original sea el triple de nuevo numero
numOrig <- NuevoNum/3
- // Validar que el número original sea de 6 cifras
numOrigEnC <- ConvertirATexto(numOrig)
Si Longitud(numOrigEnC)=6 Entonces
- // Identificar última cifra del nuevo número
cifra2 <- SUBCADENA(NuevoNumEnC,6,6)
- // Validar que el nuevo número termine en la cifra 1
Si cifra2='1' Entonces
- // Imprimir los números en pantalla en pantalla
Escribir 'Número original (6 cifras que empieza en 1): ',numOrig
Escribir 'Nuevo número (triple del original, 6 cifras que termina en 1): ',NuevoNum
Para a<-0 Hasta 6 Hacer
digito <- SUBCADENA(NuevoNumEnC,a,a)
suma <- suma+ConvertirANumero(digito)
FinPara
- // Imprimir las suma de las cifras del nuevo número y salir
Escribir 'Suma de las cifras del nuevo número es: ',suma
continuar <- 'n'
FinSi
FinSi
FinSi
Hasta Que continuar=='n'
FinAlgoritmo
Para saber más acerca de Algoritmo de problemas matemáticos consulte: https://brainly.lat/tarea/2166220
#SPJ2