Advertisement
CLazStudio

q199040935_1

Mar 16th, 2017
138
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.19 KB | None | 0 0
  1. program q199040935_1;
  2. var x, y: real;
  3. begin
  4.   readln(x);
  5.  
  6.   if (x <= -9) then
  7.     y := -1 * (x + 1)
  8.   else if (x > 0) then
  9.     y := ln(x)
  10.   else
  11.     y := x + 3;
  12.    
  13.   writeln(y);
  14. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement