Question

Написать программу в Паскале

Answer 1

var
 y,x,a,b,c:real;
begin
 b:=2.34;
 c:=0.75;
 x:= power(b,c);
 a:=sin(x)-1;
 y:=3*sqr(sin(x))+power(x,4)*((x-a/x)/(x+a/x)+1);
 write (y);
 end.