x <- as.character(readline("Ingrese E,J o S segun desee: "))

## Ingrese E,J o S segun desee:

## Ingrese E,J o S segun desee:
if(x=="E")
{
  t<-as.numeric(readline("Digite el numero de horas :"))
  cat("El numero de horas ingresadas equivale a: ", t*(60/1), "minutos")
  cat("El numero de horas equivale a: ",t*(3600/1),  " segundos")
}
if(x=="J")
{
  t<-as.numeric(readline("Digite el tiempo en minutos: "))
  cat("El numero de minutos ingresados equivale a: ", t*(1/60), " horas")
  cat("El numero de minutos equivale a: ",t*(60/1), "segundos")
}
if(x=="S")
{
  t<-as.numeric(readline("Digite el tiempo en segundos: "))
  cat("El numero de segundos ingresados equivale a: ", t*(1/3600), " horas") 
      cat("El numero de segundos equivale a: ", t*(1/60), "minutos")
}