Ответ: MS Word
Total Commander - файловый менеджер
WinRar - архиватор
Notepad - блокнот
MS Word - многофункциональный текстовый редактор
По-моему так. Смотрите картинку. .
Sub DQXTER()
Do
k = CInt(InputBox("Введите возраст от 1 до 99"))
Loop Until k >= 1 And k <= 99
Select Case k
Case 11 To 14
MsgBox "Мне " + Str(k) + " лет"
Case Else
Select Case k Mod 10
Case 1
MsgBox "Мне " + Str(k) + " год"
Case 2 To 4
MsgBox "Мне " + Str(k) + " года"
Case Else
MsgBox "Мне " + Str(k) + " лет"
End Select
End Select
End Sub
1. 1) 10 элементов, вещественный тип
2) 11 элементов, целочисленный тип
2. а) a: array[0..7] of integer
б) a: array[5..24] of integer
3. Будет напечатано: 14 8
1. Очень просто. Информационный вес знака - это логарифм по основанию 2 от количества знаков в алфавите.
2. В Unicode каждый символ занимает 2 байта. Если в строке 80 символов, а строк 25, на это нужно 80×25×2 = 4000 байт.