<em>// PascalABC.NET 3.3, сборка 1542 от 05.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadSeqInteger('Вводите:',ReadInteger('n=')).Any(x->x<0))
end.
<u>Примеры</u>
n= 5
Вводите: 6 -4 56 34 0
True
n= 3
Вводите: 67 9453 457
False
Налево при x = 1
Направо при x = 21
Ответ: 1, 21
-------------------
Действие y := x + 12 выполнятся не будет вообще, т.к. x должен быть -8, но это число является истинным для первого условия x < 3, поэтому туда программа не пойдет.
В системе счисления с основанием 2(двоичная система счисления) число может содержать только цифры 0 или 1.
Максимальное трехразрядное число в данной системе будет: 111
Переведем его в десятичную систему счисления:
![111_2=1*2^2+1*2^1+1*2^0=4+2+1=7_{10}](https://tex.z-dn.net/?f=111_2%3D1%2A2%5E2%2B1%2A2%5E1%2B1%2A2%5E0%3D4%2B2%2B1%3D7_%7B10%7D)
В одном байте 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
2-б
3-а
ббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббб
D=9+8=√17
x1= -3+√17 /2
x2= -3 - √17 /2