Question

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

Answer 1

Var x,z:real;
Begin
Readln(x);
If x<0 then
Z:=x/3;
If x>=0 then
Z:=2+SQRT(x*x*x);
Writeln(z);
End.

Answer 2

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