R語言解決數學題江蘇高考理科數學2018填空壓軸題

 

n <- 50
a <- numeric(n)
for (i in 1:n) 
{
 a[i] <- 2*i-1 
}
m <- 10
b <- numeric(m)
for (j in 1:m) 
{
 b[j] <- 2^j 
}
c <- sort(union(a,b))
d <- cumsum(c)
count <- 1
while (d[count]<=12*c[count+1])
{
  count <- count + 1
}
count