(define (distange x1 y1 x2 y2)
(
(print "Distange:=")
(print (sqrt (+ (* (- x1 x2) (- x1 x2))
(* (- y1 y2) (- y1 y2))
)
)
)
)
)
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.