Respuestas
Son 12 fracciones impropias e irreducibles
Las fracciones impropias e irreductibles son las que el numerados es mayor al denominador y ambos no tienen divisores comunes diferentes de 1, en en ese sentido, solo hay 12 fracciones con numerador 28 de este tipo. A continuacion algoritmo de solución.
Algoritmo fraccionImpropiaIrreductible
- // definir variables
Definir divisor,resto Como Entero
Dimension d1[100]
Dimension d2[100]
Escribir 'Ingrese numerador: ' Sin Saltar
leer n
Escribir "Fracciones impropias e irreductibles con numerador ", n
- // Determinar factores primos del número ingresado
num <- n
c<- 0
fp <- 2
c1 <- 1
pf <- Verdadero
Repetir
Si num mod fp = 0 Entonces
Si pf Entonces
d1[c1] <- fp
c1 <- c1+1
pf <- Falso
SiNo
d1[c1] <- fp
c1 <- c1+1
FinSi
num <- trunc(num/fp)
SiNo
fp <- fp+1
FinSi
Mientras Que num>1
- //Verificamos denominadores menores a el número ingresado (fracción impropia)
para den<-n-1 Hasta 3 Con Paso -1 Hacer
- //Determinamos si algún denominador es un número primo, si es el caso, se toma en cuenta directamente
acum <- 0
divisor <- den
Mientras divisor>0 Hacer
res <- den MOD divisor
Si res=0 Entonces
acum <- acum+1
FinSi
divisor <- divisor-1
FinMientras
si acum = 2 Entonces
prmo <- den
Escribir n, "/", den
c <- c+1
SiNo
- // Entre los denominadores no primo almacenamos en un arreglo sus factores primos
ddor <- den
c2 <- 1
cp <- "s"
fp <- 2
pf <- Verdadero
Repetir
Si ddor mod fp = 0 Entonces
Si pf Entonces
d2[c2] <- fp
c2 <- c2+1
pf <- Falso
SiNo
d2[c2] <- fp
c2 <- c2+1
FinSi
ddor <- trunc(ddor/fp)
SiNo
fp <- fp+1
FinSi
Mientras Que ddor>1
- //Comparamos los factores primos del numerador con los del denominador para chequear si hay alguno en común
si c2<>1 Entonces
Para t<-1 Hasta c1-1 Hacer
Para k<-t Hasta c2-1 Hacer
Si d1[t]=d2[k] Entonces
cp <- "n"
FinSi
FinPara
FinPara
si cp = "s" Entonces
Escribir n, "/", den
c <- c+1
FinSi
FinSi
FinSi
FinPara
Escribir "Cantidad de fracciones: ", c
FinAlgoritmo
Para saber más acerca de fracciones impropias e irreductibles consulte https://brainly.lat/tarea/22951068
#SPJ2