#| BEGIN (Введите свое решение) |#
(define (cont-frac n d k)
  (define (f i)
    (if (= i k) (/ (n k) ( d k))
        (/ (n i) (+ (d i) (f (+ i 1))))))
  (f 1))

(define (square x) (* x x))

(define (tan-cf x k)
  (cont-frac (lambda (i) (if (= i 1) x (- 0.0 (square x))))
             (lambda (i) (- (* 2 i) 1.0))
             k))
#| END |#