Такое число для 3 разрядных чисел одно, это 512
Sub amstrong()
ctroka = 2
For i = 100 To 999
N1 = i \ 100
N2 = (i - 100 * N1) \ 10
N3 = i - 100 * N1 - 10 * N2
If (N1 + N2 + N3) ^ 3 = i Then
Cells(ctroka, 2) = i
ctroka = ctroka + 1
End If
Next i
<span>End Sub</span>
1) 7,5кб = 7,5*1024*8 бит = 61 440 бит
61 440 / 7680 = 8 бит на символ
2^8 = 256 символов в алфавите
2)32=2^5 т.е. 5 бит на символ
8775 байт = 8775*8 бит
8775*8/6/30/5 = 78 символов в строке
Сначало надо взять козу и перевести ее. Потом поехать за капустой. Привесзти ее, но забрать козу. Приехать. Оставить козу и взять волка. Перевести волка. И потом вернуться за козой;)
Это самая крупная библиотека , существовавшая в 3-4 веках н.э. Во времена Юлия Цезаря, случился пожар, и большая часть библиотеки была уничтожена. Ходили слухи, что все таки она сохранилась. Но результатов никаких нет и поныне. Сейчас на ее месте находится новая библиотека "Библиотека Александрина".
Это как то в кратце.