Respuesta :
Un número de 6 cifras empieza en la cifra 1
1abcde
Si esta cifra se ubicara al final
abcde1
Sería el triple del original.
3*(1abcde)=abcde1
3*(1abcde)=abcde1
Es decir:
3*(105 + a104 + b103 + c102 + d10 + e) = a105 + b104 + c103 + d102 + e10 + 1
Acomodamos los términos para factorizar:
3*105 – 1 = a (105 – 3*104) + b (104 – 3*103) + c (103 – 3*102) + d (102 – 3*10) + e (10 –3)
= 7 (a104 + b103 + c102 + d10 + e)
= 7(abcde)
Es decir:
3*105 – 1 = 2999999 = 7 (abcde)
El 7 pasa dividiendo
2999999/7 = 428571.28 = abcde
Tomamos todas las cifras antes del punto decimal
a + b + c + d + e + 1 = 4 + 2 + 8 + 5 + 7 + 1 = 27
ListoAlgoritmo 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