# Q1x = 0.5n = 0while ( abs(x - cos(x)) > 0.01) {
x = cos(x)
n = n + 1}print(sprintf('%i, x=%.3f, cos(x)=%.3f', n, x, cos(x))Q2,正好刚刚回答了另一个R的质数的问题(http://zhidao.baidu.com/question/571598738),借过来用一下。这个数比较大,要运行一段时间,别着急。Eratosthenes 2) {
sieve <- seq(2,n)
primes <- c()
for ( i in seq(2... |