Question

Помогите решить.Паскаль

Answer 1

// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var x:=ReadReal('x=');
  Writeln('y=',3*x*x/Cos(2*x))
end.

Пример
x= -0.57
y=2.33408244304191