никак не получается верный ответ, хотя вроде все правильно. кто может - желательно программу в паскале, так я смогу разобраться с:

Результат: 27.25Если округлить до десятых, то: 27.3 Var  x,z : Real;  i : Byte;Begin  x:=58;  z:=1;  i:=0;  Repeat    z:=(z+x/2)/2;    Inc(i);  Until i>=4;  Writeln(z);end.