## Task 1.6
for (k in 2:10) {
  cat("n =", n[k], "approx =", round(app[k],10), 
      "abs_diff =", abs(app[k]-real_sqrt2),
      "accuracy =", acc[k], "dp\n")
}