Ответы
Ответ дал:
2
program dsaggfdsg;
var i: integer;
x, z: real;
begin
readln(x);
z := 1;
i := 0;
repeat
z := (z + x/2)/2;
i := i + 1;
until (i < 4);
write(z : 3 : 1);
readln;
end.
Ответ: 12.8.
Вас заинтересует
2 года назад
3 года назад
3 года назад
8 лет назад
8 лет назад
9 лет назад
9 лет назад