I=1/32 Кб=32 байта=256 бит
К=64
i=I/K
i=256/64=4
N=2 в степени i
N=2 в 4 степени=16
ответ: алфавит содержит 16 символов
<span>Информационная деятельность – деятельность, обеспечивающая сбор, обработку, хранение, поиск и распространение информации, а также формирование информационного ресурса и организацию доступа к нему.</span>Информация всегда играла чрезвычайно важную роль в жизни человека. Кто владеет наибольшим объемом информации по какому-либо вопросу, тот всегда находится в более выигрышном положении по сравнению с остальными. Общеизвестно высказывание о том, что тот, кто владеет информацией, тот владеет и миром.С давних времен сбор и систематизация сведений об окружающем мире помогали человеку выживать в нелегких условиях – из поколения в поколение передавался опыт и навыки изготовления орудий охоты и труда, создания одежды и лекарств. Информация постоянно обновлялась и дополнялась – каждое изученное явление позволяло перейти к чему-то новому, более сложному.Со временем большие объемы данных об окружающем мире поспособствовали развитию научно-технического прогресса и, как следствие, всего общества в целом – человек смог научится управлять различными видами вещества и энергии.<span>С течением времени роль информации в жизни человека становилась все существеннее. Сейчас, в первой половине XXI века роль информации в жизни человека является определяющей – чем больше навыков и знаний он имеет, тем выше ценится как специалист и сотрудник, тем больше имеет уважения в обществе.</span>
1) 1,2,1
Так как: ((5*3)-3)*5=60
2) Сместиться на (0;0) - Но не уверен т.к. условие немного некорректное
Поскольку язык не указан, отвечающий вправе использовать любой. В данном случае выбран VBA из состава Microsoft Office 2003 (реализация в среде Excel). Некоторые дамы и господа (обычно школьники и студенты), мнят себя великими программистами и считают семейство языков VB/VBA/VBS недостойным упоминания. Теперь у них есть возможность написать что-то аналогичное на С++/Delphi и сравнить полученные коды с приведенным.
<em><u>Собственно, описание класса Class1:</u></em>
Private Const n = 12
Public Sub HowManySucc(ByRef kol As Integer)
Dim i As Integer, m1 As Integer, m As Integer
kol = 0
m1 = GetInt()
For i = 2 To n
m = GetInt()
If m > m1 Then kol = kol + 1
Next i
End Sub
Private Function GetInt() As Integer
Dim n As Integer
GetInt = Int(Val(InputBox("Введите целое число")))
End Function
<em><u>Вызов для тестирования:</u></em>
Sub aa()
Dim oC As New Class1, k As Integer
oC.HowManySucc k
MsgBox "Целых, больше первого: " + Str(k)
End Sub
