a guest Jan 21st, 2020 58 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program xPro'
  2. var x,a,y: real;
  3. begin
  4. readln(a,x);
  5. if x>2 then y:=x*x-sin(a*x)             else
  6. if x<-2 then y:=sqrt(abs(sin(x*x)+a*x)) else
  7. y:=(5*a+x)/(5*x-a);
  8. writeln(y);
  9. readln;
  10. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand