Помогите с информатикоц

Question

Помогите с информатикоц

---

Answer 1

Var   x,z,i: real;
begin
   i:=0;
   z:=1;
   x:=39;
   while i < 4 do
        begin 
          z:=(z+x/2)/2;
           i:=i+1;
        end;
   writeln('z: ',z);
end.
_______________________

ОТВЕТ: 18.34375 (ОКРУГЛИ, до нужного знака)
_______________________