Question

Составьте программу по заданию + блок схема(по желанию)

Answer 1

первое задание

VARx, y : real;
BEGIN
readln(x);
if x <= -1 then   y:= -1/(x*x*x)else if x <= 2 then  y:= x*x   else y:=-4;
writeln(y:0:8)
END.

дальше еще скину

Answer 2

UPD второе VAR
x, y : real;

BEGIN

readln(x);

if (x < 0) or (x >= 2) then
writeln('NO')
else
begin
y:= 2*x*sqrt(x +sqrt(x));
if (y < 0) or (y > 1) then
writeln('NO')
else
writeln(x, ' ', y, ' YES')
end
END.