Question

Задание во вложении.

Answer 1

uses Crt;
var
   x,y,r1,r2,r3:real;
begin
   ClrScr;
   Write('x='); Read(x);
   Write('y='); Read(y);
   r1:=(sin(x)+cos(x))/(cos(x)+sin(y))*sin(x*y)/cos(x*y);
   r2:=(1+sin(sqrt(x+1)))/cos(12*y-4);
   r3:=ln(abs(cos(x)))/ln(1+x*x);
   Writeln(r1,' ',r2,' ',r3);
   ReadKey
end.