Advertisement
Guest User

Untitled

a guest
Jan 21st, 2020
95
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.18 KB | None | 0 0
  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.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement