Sub MyTest()
Dim a As Variant, i As Integer
a = Range("A1:B5")
For i = 1 To 5
Cells(i, 3) = S(a(i, 1), a(i, 2))
Next i
End Sub
Function S(ByVal x As Double, ByVal y As Double) As Double
Dim i As Integer
If x < y Then
S = 0
For i = 1 To 20
S = S + x ^ i * y ^ (i + 1)
Next i
ElseIf x > y Then S = (x * y) ^ 2
Else: S = x * x + y * y
End If
End Function
x - по колонке A1:A5, y - по колонке B1:B5, результат в C1:C5
360000 битов.
351.5625 кибибайт
0.3433227539062 мебибайт
Что в корзине осталось лежать 8черных и 7 белых шаров
(256 * 64 * 8) / (16 * 1024) = 8 бит на один пиксель
Ответ:
= 256
1) Система - это одно целое, состоящее из частей, взаимосвязанных между собой (части образующие систему - компоненты).
2) -Материальные системы: Природные (планета Земля, дерево); Технические (машина, здание).
-Нематериальные: человеческий язык, произведения литературы, формулы.
-Смешанные: учебные заведения, оркестр (т.е. всё то, что включает в себя материальные и нематериальные системы)
3) Карандаш и ручка; Вода, лед и пар.
4) Компоненты: Солнце, планеты, спутники, астероиды. Планеты, либо Солнце можно рассматривать как системы.