Если просто написать формулу, то это выглядит так: R=D/K
1,5 Кбайт=1,5*2^13 бит;
64х64 пикселей = 2^6 * 2^6 = 2^12 пикселей;
i = I/k; i = 1,5 * 2^13 / 2^12 = 1,5 * 2 = 3 бита;
N = 2^3 = 8 цветов в палитре.
Пишу на QBasic
CLS
DIM A(10)
FOR I = 1 O 10
INPUT A(I)
NEXT I
MAX= A(1)
FOR I = 2 TO 10
IF A(I)>A(I-1)THEN
MAX= A(I)
END IF
NEXT I
FOR I = 1 TO 10
IF A(I)= MAX THEN
K=K+1
END IF NEXT I
PRINT MAX
PRINT K