Question

Здравствуйте, нужно сделать в Pascal

Answer 1

program zadacha;

var

a,b,x,y,f: real;

 

begin

writeln('vvedite a,b,x');

readln(a,b,x);

y:=(sqr(a+b)*x) / (sqrt(sqr(a)+sqr(b)));

f:=sqr(cos(y)) + ((a-b)-a*x)  / (y*b);

writeln('y =',y:6:2);

writeln('f(y) =',f:6:2);

end.