никак не получается верный ответ, желая вроде все верно. кто может

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

Задать свой вопрос
1 ответ
Итог: 27.25
Если округлить до 10-х, то: 27.3
 
Var
  x,z : Real;
  i : Byte;
Begin
  x:=58;
  z:=1;
  i:=0;
  Repeat
    z:=(z+x/2)/2;
    Inc(i);
  Until igt;=4;
  Writeln(z);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт