Потому что не профисиона эго делал
Что-то типа:
uses Crt;
var x, y:real;
begin
ClrScr;
Write('X='); ReadLn(X);
Write('Y='); ReadLn(Y);
if (X>=0) and (x<=3) and (Y>=0) and (Y<=3) then WriteLn ('Yes!!!')
else WriteLn('No...');
ReadLn;
end.
вот тебе то, что ты хотела
В системе счисления с основанием 2(двоичная система счисления) число может содержать только цифры 0 или 1.
Максимальное трехразрядное число в данной системе будет: 111
Переведем его в десятичную систему счисления:
В одном байте 8 бит => в двух байтах - 8*2=16 бит
Умножаем: 7*16=112
Переводим в двоичную систему счисления:
112/2=56(0) - 56 - целая часть, 0 - остаток
56/2=28(0)
28/2=14(0)
14/2=7(0)
7/2=3(1)
3/2=1(1)
1110000 - число 112 в двоичной системе
Ответ: 1110000