Question

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

Answer 1

var y, x: real;beginread(x);if x < 4 then y:= 2*sqr(x)*x + 1/ x - 5;if x>= 4 then y:= 3*sqr(x) - 2;writeln(y);end.

Answer 2

var
y, x: real;

begin
read(x);
if x < 4 then y := 2 * sqr(x) * x + 1 / x - 5;
if x >= 4 then y := 3 * sqr(x) - 2;
writeln(y);
end.