args <- commandArgs(trailingOnly = TRUE)  

A <- as.numeric(args[1])

i <- A/2

while(abs(i*i - A) >= 0.0000001){   # 当没有满足条件的时候，继续，这样把每次迭代的结果都输出
    i <- (i+A/i)/2
}

cat(sprintf("One sqrt root of %s is %s", A, i))  # 整理一下输出结果