Таблица истинности. Ответ в последней колонке
Вариантов кодировок UNICODE достаточно много и один из самых популярных - в котором каждый символ всегда кодируется двумя байтами. Поэтому кириллица, цифры, латиница, спецзнаки - все кодируется одинаковым числом байт.
Один символ кириллицы кодируется 2 байтами = 2х8 = 16 битами.
Неприлично давать задания с ошибкой.
В слове ПРОГРАММИРОВАНИЕ две буквы М и должно было получиться
ИНАВОРИ<u>М</u>ГОРПРАМЕ.
Поскольку язык не указан, отвечающий вправе использовать любой. В данном случае выбран 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
