Tarea 1

#Ejercicio 1
precio_0=c(0)
variaciones=scan(file.choose())
sum(c(precio_0,variaciones))

## [1] 439

#Ejercicio 3
a=c(seq(1,999))
b=c(a[a%%3==0])
d=c(a[a%%5==0])
e=c(union(b,d))
sum(e)

## [1] 233168

#Ejercicio 4
fibo<- c(1,1)
impar <-c()
par <-c()
a <- 0

while(a<=10000000){
d <- length(fibo)

a <- fibo[d]+fibo[d-1] 
m <- a%%2
ifelse(m==0, par <- c(par,a), impar <-c(impar,a))

fibo<-c(fibo,a)
}
z<-sum(impar,1,1) /sum(par)
z

## [1] 1