Question

Треугольник задан длиннами сторон вычислить периметр треугольника площадь и радиус вписанной и описанной окружности pascal turbo

Answer 1

Ответ:

Program xxx;

  Var a, b, c, p, s : real;

Begin

  wtiteln('введите катет а-');

  read(a);

  wtiteln('введите катет b-');

  read(b);

  s:=(a*b)/2;

  writeln('площадь треугольника =', s);

  c:=sqrt(sqr(a)+sqr(b));

  p:= a+ b + c;

  writeln('периметр треугольника =', p);  

end.

Объяснение: