Visual BasicВыделить код
Option Explicit
Function Min_3(a As Variant, b As Variant, c As Variant) As Variant
Min_3 = a
If a > b Then Min_3 = b
If Min_3 > c Then Min_3 = c
End Function
Private Sub Form_Activate()
Dim a As Integer, b As Integer, c As Integer
a = Val(InputBox("Введите число"))
b = Val(InputBox("Введите число"))
c = Val(InputBox("Введите число"))
Print "Наименьшее из чисел " & a & ", " & b & ", " & c & " - число " & Min_3(a, b, c)
End Sub
100х100х3=30 000 бит
В 1 байте 8 бит, в 1 Кбайт 1024 байта.
30 000 / (8 * 1024) ≈ 3.66 Кбайт
Дано:
V = 3Кбайт
Nо = 6144 симв.
Найти: N?
Решение:
3 Кбайт = 3072 байт = 24576 бит
24576 бит / 6144 символа = 4 бита (размер в памяти 1 символа)
По формуле находим количество символов N=2^i
N=2^4=16 символов
Ответ: 16