Question

"Составить алгоритм для нахождения медианы равностороннего треугольника, если известна его сторона"
Заранее благодарю!

Answer 1

var
  a, med :real;

begin

  readln(a);
  med:= sqrt(sqr(a) - sqr(a/2));
  writeln(med);

end.