用R语言写一个数列求和

Question

球球，怎么用R语言写一个数列求和，1加1/2加到1/n，当总和大于100的时候导出n的值。

Answer 1

a=1;s=0
qing <- function(x){
  for (i in 1:n){
   s=s+1/i
   if(s>100){
      print(sum)}
      return

  }

  }

qing(12)