Question

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

Answer 1

Var a,s,h,r1,R:real;
begin
readln(a);
s:=a*a*sqrt(3)/4;
h:=a*a*sqrt(3)/2;
r1:=a/2/sqrt(3);
R:=a/sqrt(3);
writeln('S=',s:3:2,' h=',h:3:2,' r=',r1:3:2,' R=',R:3:2);
end.