inv <- as.numeric(readline("Ingrese la cantidad invertida: "))

## Ingrese la cantidad invertida:

## Ingrese la cantidad invertida:
int <- as.numeric(readline("Ingrese el interes anual: "))

## Ingrese el interes anual:

## Ingrese el interes anual:
a<- as.numeric(readline("Ingrese los años: "))

## Ingrese los años:

## Ingrese los años:
tasaint <- int/100
capital <- inv*(1+tasaint)^a
cat("El capital obtenido es: ",round(capital,digits = 2))

## El capital obtenido es:  NA