Question

Паскаль. Помогите пожалуйста. Составить программу для вычисления значений функции Y по формуле:

Answer 1

var x, y: real;

begin

write('x = ');

read(x);

if x < -2 then y := x + 1

else if x > 3 then y := 1 / x

else y := Sin(x - 3);

write('y = ',y);

readln; readln;

end.