Question

для произвольного значения x найти

Answer 1

var x,z:real;
Begin
write('x = ');
readln(x);
if x<0
 then z:=x/3
 else z:=2+sqrt(x*x*x);
writeln('z = ',z);
End.

Пример:
x = -18
z = -6