дана сторона равностороннего треугольника. Найдите площадь этого треугольника, его высоты, радиусы, вписанной и описанной окружности. ПАСКАЛЬ!

var

 a: real;

 S, h, ri, re: real;

begin

 Write('a='); readln(a);

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

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

 ri := a * sqrt(3) / 6;

 re := a * sqrt(3) / 3;

 Writeln('S=', S:0:2);

 Writeln('h=', h:0:2);

 Writeln('r=', ri:0:2);

 Writeln('R=', re:0:2);

end.

Равносторонний треугольник - это треугольник, у которого все стороны равны. Равны также и его высоты.

Нужно знать формулы из математики:

h = a√3/2, S = a²√3/4, r = a√3/6, R = a√3/3.

Вот программа (в Паскале не различают прописные и строчные бувы, поэтому радиус вписанной окружности обозначим как r1):

var a,s,h,r1,R:real;

begin

write('a=');readln(a);

s:=a*a*sqrt(3)/4;

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

r1:=a*sqrt(3)/6;

R:=a*sqrt(3)/3;

writeln('S=',s:3:2,' h=',h:3:2,' r=',r1:3:2,' R=',R:3:2);

end.