Перевести из pascal в qbasik program task1; var a, b, c, d, s1, s2, f: real; begin write('введите a: '); readln(a); write('введите b: '); readln(b); write('введите c: '); readln(c); write('введите d: '); readln(d); s1 : = + 1)); if b - 1 < c + d then s2 : = b - 1 else s2 : = c + d; if s1 < s2 then f : = s1 else f : = s2; write('f = ', f); readln; end.

1) log2(64) = 6, на 1 пиксель нужно 6 бит, а всего 6 * 128 * 256 бит = 6 * 16 * 256 байт = 6*4 Кб = 24 Кб (1 байт = 8 бит, 1 Кб = 1024 байт)
2) 5 бит на пиксель, 5 * 128 * 128 бит = 10 Кб
3) 7 бит на пиксель, 7 * 64 * 128 бит = 7 Кб
4) 8 бит на пиксель, 8 * 64 * 256 бит = 16 Кб
5) 7 бит на пиксель, 7 * 32 * 1024 бит = 28 Кб
6) 6 бит на пиксель, 6 * 1024 * 512 бит = 384 Кб
7) 5 бит на пиксель, 80 Кб
8) 4 бита на пиксель, 32 Кб
9) 3 бита на пиксель, 12 Кб
10) 8 бит на пиксель, 16 Кб
11) 24 Кб = 24 * 1024 байт = 24 * 1024 * 8 бит, на 1 пиксель приходится (24 * 1024 * 8) / (128 * 256) = 6 бит. По формуле N = 2^i получаем 2^6 = 64 возможных цветов.
12) 10 Кб = 10 * 1024 * 8 бит, на 1 пиксель (10 * 1024 * 8) / (128 * 128) = 5 бит на пиксель, 2^5 = 32 цвета.
13) 7 бит на пиксель, 128 цветов
14) 8 бит на пиксель, 256 цветов
15) 7 бит на пиксель, 128 цветов

В формуле 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