Question

Помогите решить плиз....

Answer 1

Var
   x:real;
Begin
X:=0.5;
Repeat
WriteLn('Z(',x,') = ',Sqr(x+1)*(x+1)-2);
x:=x+0.5
Until x > 4;
End.

Но можно третью степень вычислить и по-другому:

Var
   x:real;
Begin
X:=0.5;
Repeat
WriteLn('Z(',x,') = ',Exp(3*Ln(x+1))-2);
x:=x+0.5
Until x > 4;
End.