#| BEGIN (Введите свое решение) |#
(define (improve guess x)
(average3 (/ x (* guess guess)) (* 2 guess)))

(define (average3 x y)
(/ (+ x y) 3))

(define (cube-root x)
(cube-iter 1.0 x))
  
(define (good-enough? guess x)
(< (abs (- guess x)) 0.001))
  
(define (cube-iter guess x)
(if (good-enough? guess (improve guess x))
guess
(cube-iter (improve guess x)
x)))
#| END |#