Вычислить площадь треугольника по двум сторонам и углу между ними осуществив перевод...

Question

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

Answer 1

Var
  a, b, alpha: real;

begin
  writeln('Введите длины сторон и величину угла');
  readln(a, b, alpha);
  
  alpha := 0.5 * a * b * sin(alpha * pi / 180);
  writeln('Площадь треугольника равна ' + alpha);
end.