Составить программу, решающую следующую задачу: Дана сторона равностороннего треугольника a, найти площадь S этого треугольника и радиусы вписанной R1 и описанной R2 окружностей. Формулы:

Для решения задачи используется линейная алгоритмическая структура (структура следования).

Пусть а - длина стороны равностороннего треугольника, тогда

- Площадь равностороннего треугольника определяется по формуле: S = a^2 * корень (3) / 4;

- Радиус описанной окружности: Ro = a / корень (3);

- Радиус вписанной окружности: Rv = a / (2 * корень (3)).

Program Ravnostor;

Var a, s, ro, rv: real;

begin

Writeln ('Введите длину стороны равностороннего треугольника->');

readln (a);

S: = sqr (a) * sqrt (3) / 4;

ro: = a / sqrt (3);

rv: = a / (2 * sqrt (3));

Writeln ('Площадь треугольника=', S);

Writeln ('Радиус описанной окружности=', ro);

Writeln ('Радиус вписанной окружности=', rv);

end.