приделали это потом это крях-брях и всё готово
90(10) = 5A(16) = 0101 1010(2) в восьмибитном представлении
-55(10) = -37(16) = -0011 0111(2) в прямом коде. Для хранения отрицательных чисел используется модифицированный обратный код.
Обратный код получается инверсией всех битов.
-0011 0111(2) = 1100 1000(2) в восьмибитном представлении (обратный код)
Модифицированный код получается из обратного путем прибавления единицы в младшем (левом) разряде числа.
1100 1000(2) = 1100 1001(2) в восьмибитном представлении (модифицированный обратный код)
1100 1001(2) = С9(16) = 0хС9
Var x,y:real;
begin
<span> write("Введите x:");
</span><span> readln(x);
</span><span> write("Введите y:");
</span><span> readln(y);
</span><span> if (((x>0) and (x<=1) and (y>0) and (y<=1)) or ((x>=-1) and (x<0) and (y>=-1) and (y<0)) or ((x=0) and (y=0))) then writeln("Входит") else writeln("Не входит");
</span><span>end.</span>
Лист защищен без пароля, чтобы случайно не повредить формулы.
Лис Excel живой, можете изменить диапазон.