Дана сторона А(ввести с клавиатуры) равностороннего треугольника .найти радиусы вписанной...

Question

Дана сторона А(ввести с клавиатуры) равностороннего треугольника .найти радиусы вписанной и описанной окрудностей
R=a/2*корень из3
R2=A/корень из3

Answer 1

Var
a,r1,r2:real;
begin
readln(a);
r1:=a/2*sqrt(3);
r2:=a/sqrt(3);
writeln('радиус вписанной ',r1:0:4,' радиус описанной ',r2:0:4);
end.