Question

решите задачу на языке паскаля​

Answer 1

var x,y,s:real;

begin

 writeln('введите х в радианах');

readln(x);

writeln('введите y в радианах');

readln(y);

s:=(sin(x)+cos(y))/(cos(x)-sin(y))*tan(x*y);

writeln(s)

end.