Поиск модуля вектора

Листинг 9.9. Поиск модуля вектора