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

Question

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

---

Comments

множество однотипных примеров. язык очевидно любой

Answer 1

Const
    x0 = 0;
    xk = 2.4;
    dx = 0.2;

var
    x: real;

begin
    x := x0;
    repeat
        WriteLn('Z(', x, ') = ', Sqrt(4 * x * x + 1));
        x := x + dx
    until x > xk;
end.

Answer 2

Var
   x:real;
Begin
X:=0;
Repeat
WriteLn('Z(',x,') = ',Sqrt(4*x*x+1));
x:=x+0.2
Until x > 2.4;
End.