Напишіть мовою Паскаль наступний вираз:

Question

Напишіть мовою Паскаль наступний вираз:

Answer 1

Код ниже (+ прикрепил скриншот):

var x,rslt: real;

begin

   write('Enter x: x = ');

   readln(x);

   rslt:= (x+7)/(x*x-sqrt(2))-(sin(2*x))/(cos(2*x));

   write('Your answer - ',rslt:0:2);

end.