Скатиться, если правильно варианты ответов переписал :)
Ответ: 1010101
Если надо в двоичной
Ты наверное имеешь в виду Нельзя писать оскорбления, мат, посылать плохие фотографии и так далее?
1.
x=-3 y=-2
x<0 (да)
x<y (да)
x=x+1
y=y/2
x=-2 y=-1
x<0 (да)
x<y (да)
x=x+1
y=y/2
x=-1 y=-0,5
x<0 (да)
x<y (да)
x=x+1
y=y/2
x=0 y=-0,25
x<0 (нет)
x=x-5
y=y+3
x=-5 y=2,75
2.
x=-1 y=4
x<0 (да)
x<y (да)
x=x+1
y=y/2
x=0 y=2
x<0 (нет)
x=x-5
y=y+3
x=-5 y=5
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
uses NumLibABC;
begin
var oL:=new Zeroin(x->Ln(x)-(0.5/Sqr(x)),1e-8);
Writeln('x=',oL.Value(0.1,1.5):0:8)
end.
<u>Пример с точностью 10⁻⁸</u>
x=1.32786401
<u>Замечание:</u> Исходный текст класса Zeroin в составе библиотеки численных методов NumLibABC находится в стандартной поставке PascalABC.NET