Pascal Написать программу, вычисляющую по заданному значению аргумента X значение функции Y по соответствующей значению Х формуле : 1) Y = X+sin X, если -3 < Х < -1 ИЛИ 0 < X < 2; 2) Y = -X, если 4 < Х < 8 ИЛИ X > 15; 3) Y = X, при любом другом Х
var X,Y:real; beginread(X); if ((-3<X) and (X<-1)) or ((0<X) and (X<2)) then Y := X + sin(X) else if ((4<X) and (X<8)) or (X>15) then Y := -X else Y:=X; Println('Y:',Y); end.
Пример работы: