Question

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

Answer 1

Var
   x:real;
Begin
X:=0;
Repeat
WriteLn('Z(',x,') = ',2*Sqrt(x+1)*Cos(x));
x:=x+0.25
Until x > 3.5;
End.