Нет 1 байт 8 битов а 2 это уже 16
Держи ))) удачи )))
var x, y, d: real;
begin
read(x,y);
d := sqrt( sqr(x) + sqr(y) ); {находим длину отрезка от центра координат}
if d <= 1 then
writeln('Входит в Д1')
else if ( x >= 2 ) and ( x <= 3 ) and ( y >= 0 ) and ( y <= 1 ) then
writeln('Входит в Д2')
else
writeln('Не входит');
end.
1010 1001 (это дополнительный код)
1.
Пока сверху свободно
Вверх
Пока справа свободно
закрасить вправо
Пока снизу свободно
закрасить вниз
Пока слева свободно
закрасить влево
Пока сверху свободно
закрасить верх
пока справа свободно
закрасить вправо