Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program q199040935_2;
- var x, y: real;
- begin
- readln(x);
- if (x <= -3.5) then
- y := 9 + (2 * x)
- else if (x >= 1.5) then
- y := 6 - (2 * x)
- else if ((x < 1.5) and (x > 0)) then
- y := 0.5 + (x * 5 / 3)
- else
- y := 0.5 - (x * 3 / 7);
- writeln(y);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement