Turbo Pascal 06

Стандартные функции.

1. Дано положительное вещественное число k. Определить n-ую цифру дробной части числа k.
2. Даны три действительных числа. Найти среднее арифметическое их модулей и выполнить округление результата до целого.
3. Заданы уравнения двух пересекающихся прямых на плоскости: y₁=k₁x+b₁, y₂=k₂x+b₂. Напишите программу, вычисляющую угол между ними в градусах, используя формулу tg φ= .