Составить программу, решающую следующую задачу: Дана сторона равностороннего треугольника...

Question

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

Answer 1

Program qq;
var a:integer;
s,R1,R2:real;
begin
readln(a);
s:=(sqr(a)*sqrt(3))/4;
R1:=(2*S)/(3*a);
R2:=(Sqr(a)*a)/(4*S);
writeln('s=',s,' r1=',r1,' r2=',r2);
end.