Как определить для какого значения x истинно высказывание: ¬((x> 3) → (x> варианты ответов x=1, x=2, x=3, x=4

таблица истинности выражения a → b

а |  b | a → b

0  i  0 |      1

0  i  1 |      1

1  i  0 |      0

1  i  1 |      1

теперь пример: ¬((x> 3)  → (x> 4))

при х = 1: ¬((1> 3)  → (1> 4))= ¬((0)  → (0))=¬(1) = 0,т.е.(1> 3)=ложь(> 4)=ложь(0), а ложь(0) → ложь(0) = истина (1), а отрицание лжи (0) = истина(1)

при х = 2: ¬((2> 3)  → (2> 4))= ¬((0)  → (0))=¬(1) = 0

при х = 3: ¬((3> 3)  → (3> 4))= ¬((0)  → (0))=¬(1) = 0

при х = 4: ¬((4> 3)  → (4> 4))= ¬((1)  → (0))=¬(0) = 1

ответ. х=4.

 

1) в одном байте 8 бит.1800 байт переводим в биты = 1800*8 = 14400 бит скорость 14400 бит/c делим 14400 на 14400 = 1с передадим за 1 сек. 2)1.5мбайта переводим в байты = в 1мбайте 1024кбайта в 1кбайте 1024байта получаем  1.5мбайта=1536кбайт=1572864байта умножаем на 8(перевод в биты)=12582912бит канал 12800 бит/c делим получаем 983,04 секунды на передачу файла 3) 7200кбайт умножаем на 8 получаем 57600 кбит делим на скорость получаем 300сек. во втором может быть ошибка, но не пойму в чем. щас еще

1. program enot; var a: array[1..8] of real;   i: integer; begin for i: = 1 to 8 do begin a[i]: =random(41)-20; writeln(a[i]: 8: 3); end; end.2.  program fg; var a: array [1..13] of integer; i: integer; beginwriteln('первоночальный массив: '); for i: = 1 to 13 dobegina[i]: =random(13)+5; writeln(a[i], ' '); end; writeln('получившийся   массив: '); for i: = 13 downto 1 dowriteln(a[i],' '); end.3.  program enot; var a: array [1..7] of integer; i: integer; beginfor i: = 1 to 7 dobegina[i]: =random(25)+104; writeln(a[i]); end; end.