готово. паскаль
Объяснение:
program variant6;
var x, y: real;
begin
Write('Введите значение X >> ');
ReadLn(x);
if x < -1 then
y := 1 + 2*x + 4*sqr(x)
else if x > 1 then
y := 1/x
else y := sin(x);
WriteLn('Y(',x,')=', y);
end.
program variant12;
var x, y: real;
begin
Write('Введите значение X >> ');
ReadLn(x);
if x < -4 then
y := 2*sqr(x) - 7*x + 3
else if x > 5 then
y := abs(x - 18)
else y := sqr(x)*x + 2*x;
WriteLn('Y(',x,')=', y);
end.
