Question

Паскаль: Написать программу, которая подсчитывает радиус окружности, вписанной в равносторонний треугольник со стороной a. Срочно помогите, прошу)

Answer 1

var  a,b,c,p,s,r1:real;begin  write('Введите стороны треугольника: ');  Read(a,b,c);  p:=a+b+c;  s:=sqrt(p2*(p2-a)*(p2-b)*(p2-c));  r1:=s/p;
  writeln('R1=',r1)end.