никак не получается верный ответ, хотя вроде все правильно. кто может - желательно программу в паскале, так я смогу разобраться с:
Приложения:
![](https://st.uroker.com/files/268/2686ec9cbd4354d5bb3b0c7444d2cd70.jpg)
Ответы
Ответ дал:
0
Результат: 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.
Если округлить до десятых, то: 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.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
9 лет назад