Для какого из указанных значение числа х ложно выражение: (х> 3)или не (х> 2)? варианты ответа: 1)1 2)2 3)3 4)4

Вариант №1 дает истину т.к x <=2
Вариант №2 дает истину т.к x <=2
Вариант №3 дает ложь
Вариант №4 дает истину т.к x > 3

ответ: вариант №3

В формуле I=M*b
I-объем изображения, M-количество пикселей, b- глубина цвета
Количество цветов K определяется по формуле: K=2^b

1)Определим глубину цвета:
b=I/Mb=(7*1024*8)/(64*128)= 7 бит
Количество цветов:K=2^b
K=2^7= 128
ответ: 128 цветов

2)b= I/М= (16*1024*8)/(64*256)= 8 бит
K=2^b=2^8= 256
ответ: 256 цветов

3)b=I/М= (28*1024*8)/(32*1024)= 7 бит
K=2^b=2^7= 128 
ответ: 128 цветов

4)b=I/М= (384*1024*8)/(1024*512)= 6 бит
K=2^b= 2^6= 64
ответ: 64 цвета

5)b=I/М= (80*1024*8)/(512*256)= 5 бит
K=2^b= 2^5= 32
ответ: 32 цвета

6)Определим глубину цвета:
b=㏒₂K= ㏒₂8= 3 бит
I=M*b= (256*128)*3= 98304 бит
98304 бит/8= 12288 байт
12288 байт/1024= 12 Кбайт

ответ:12

7)b=㏒₂K= ㏒₂256 = 8 бит

I=M*b= (128*128)*8= 131072 бит
131072 бит/8= 16384 байт
16384 байт/1024= 16 Кбайт

ответ:16

Если условие задачи перевести на математику, то имеем три числа (три расстояния), среди которых нужно найти самое маленькое (минимум), и самое большое (максимум). Другими словами, найти минимальное и максимальное из трех заданных чисел.
program z;
var min,max,x:real;
    i:integer;
begin
readln(x);  {ввод первого числа}
min:=x;     {принять первое число за минимум на начало счета}
max:=x;     {принять первое число за максимум на начало счета}
for i:=2 to 3 do    {считать остальные два числа}
begin
  readln(x);        {ввести очередное число}
  if x>max then max:=x;  {если введенное число больше текущего максимума, считать его максимумом}
  if x<min then min:=x;  {если введенное число меньше текущего минимума, считать его минимумом}
end;
writeln('min=',min);     {вывод минимума}
writeln('max=',max);     {вывод максимума}
end.

Замечание. Программа не использует массив, т.к. чисел всего три. В более общем случае лучше ввести числа в массив и выполнить его сортировку.

Вариант без цикла и с отдельными переменными для каждого числа
program z1;
var min,max,x,y,z:real;
begin
readln(x);  {ввод первого числа}
min:=x;     {принять первое число за минимум на начало счета}
max:=x;     {принять первое число за максимум на начало счета}

readln(y);        {ввести второе число}
if y>max then max:=y;  {если введенное число больше текущего максимума, считать его максимумом}
if y<min then min:=y;  {если введенное число меньше текущего минимума, считать его минимумом}

readln(z);        {ввести третье число}
if z>max then max:=z;  {если введенное число больше текущего максимума, считать его максимумом}
if z<min then min:=z;  {если введенное число меньше текущего минимума, считать его минимумом}

writeln('min=',min);     {вывод минимума}
writeln('max=',max);     {вывод максимума}
end.