<span> I=K * i , i=7 бит, I=7*2048 бит
I=14
</span>
Растровое изображение это, по сути, набор двоичных чисел, каждое из которых задает цвет одного пикселя (точки). Чем больше бит в числе, тем больше вариантов цвета может быть у пикселя.
Если вариантов цвета было 65536 - это 2^16, значит каждый пиксель кодировался 16-ю битами. Число цветов стало 16 (2^4) - каждый пиксель начал кодироваться 4 битами. Значит информационный объем картинки уменьшился в 16/4 = 4 раза.
option explicit
dim s,k,i,j,max,min,a
privat sub cmdstart_click()
pic1.cls
redim a(1 to 5,1 to 3)
pic1.scale(0,0)-(5+1,3+1)
randomize:pic1.forecolor=vbblue
for i=1 to 5
for j=1 to 3
a(i,j)=int(rnd*100):pic1.currentx=j
pic1.currenty=i:pic1.print a(i,j)
next
next
max=a(1,1)
min=a(1,1)
for i=1 to 5
for j=1 to 3
if a(i,j)>max and a(i,j)<min then
end if
next
next
pic1.forecolor=vbred:pic1.print max, min
end sub
<!DOCTYPE html>
<html>
<head>
<metacharset="UTF-8"
<title>Пример пустой веб-страницы</title>
</head>
<body>
</body>
</html>
Var A, I, O: Integer;
Begin
ReadLn(A);
For I:=100 to 999 do Begin
If I div 100 = A Then
O:=O+1;
if (I div 10)-(I div 100) = A then
O:=O+1;
If I - ((I div 10)*10) = A Then
O:=O+1;
End;
WriteLn(O);
End.