В двоичной системе исчисления 2 в 25 степени = 1 и 24 нуля.
<span>Ответ 24.</span>
Sub Zadanie()
n = CInt(InputBox("n ="))
for i = 1 to n
t = i
s = 0
Do While t > 0
s = s + (t mod 10)^3
t = t \ 10
Loop
if i=s then MsgBox i
next
End Sub
<em>// PascalABC.NET 3.2, сборка 1504 от 09.07.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(30,1,20); a.Println;
Writeln('Элементов, оканчивающихся цифрой 8- ',
a.Where(x->x mod 10=8).Count)
end.
<u>Пример</u>
1 3 20 17 2 5 3 14 18 1 13 3 8 9 5 19 19 3 19 20 2 12 20 13 7 5 10 9 1 20
Элементов, оканчивающихся цифрой 8- 2
Всего 64 фломастера, каждый из них можем достать, значит всего 64 события)
1). 64=2i
26=2i
i = 6 (бит) - приходится на 1 событие.
<span>^ Ответ: Сообщение о том, что из коробки достали красный фломастер содержит 6 бит информации</span>
1,5 Мб=1,5*1024*1024 байт
Необходимая память для 1 пикселя (глубина цвета):
1,5*1024*1024/(1024*512) = 3 байта = 3*8 бит = 24 бита
Максимальное количество цветов = 2^24 = 16 777 216