Solución al taller

Ejercicio 1

Edad <- 51 # Edad del cliente
n <- 10 # cantidad a adquirir del producto A
m <- 15 # cantidad a adquirir del producto B
if(Edad<18 | Edad>80) {
costo="El producto no está disponible para personas de su edad"
} else if (18<=Edad & Edad<=25) {
costo=n*10000+m*5000
} else if (26<=Edad & Edad<=51) {
costo=n*8000+m*13000
} else {
costo=n*7500+m*2500
}
print(costo)

## [1] 275000

Ejercicio 2

 dividendo <- 5;divisor <- 8
V <- function(dividendo,divisor){
if(dividendo>=divisor){
 dividendo-round(dividendo/divisor,0)*divisor # función que calcula el resto de un cociente
  } else{ 
    dividendo }
}
resto <- V(dividendo,divisor)
paste("el valor del resto es:", resto,sep=" ")

## [1] "el valor del resto es: 5"

 if(V(resto,2)==0) {
"el resto es par"
 } else {
 "el resto es impar"
 }

## [1] "el resto es impar"