Составить программу для нахождения высоты равностороннего треугольника, если сторона равна а Паскаль Заранее спасибо
На держи program Something; var a, h: real; begin writeln('Введите сторону ' ); readln(a); h:=sqrt(a*a - 0.25*a*a); writeln('Высота равна ' ,h:2:3); end.