Question

Срочно, плиз помогите!Составьте блок-схему и программу на языке паскаль для вычисления значений функции

Answer 1

var x, y: real;
begin
readln(x);
if x < 0 then y := Abs(sin(x));
if x > 3 then y := 1 / 2 + x * x * x;
if (x >= 0) and (x <= 3) then y := x / (x + 3);
write('y(', x, ') = ', (y):0:3)
end.