Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.