1 Кбит = 1024 бит
0.125 Кбит * 1024 = 128 бит
' 1. Даны 2 массива a и b каждый из 12 элементов.Найти R=pi*b(i)/a(max)
Function Zadanie20683579(A, B)
max = A(0)
for i = LBound(A, 1) To UBound(A, 1)
if max < A(i) then max = A(i)
next
R = 1
for i = LBound(B, 1) To UBound(B, 1)
r = r * B(i)
next
Zadanie20683579 = r / max
End Function
Function RandomArray(n, max)
ReDim A(n)
Randomize
for i = LBound(A, 1) To UBound(A, 1)
A(i) = max * Rnd
next
RandomArray = A
End Function
Msgbox Zadanie20683579(RandomArray(12, 50), RandomArray(12, 50))
1). x=1+5+5+5-3+8-7+2=16.
2). x=12-2+1-3+4-2-3-5=2.
143₁₀=1*10²+4*10¹+3*10⁰
² ¹ ⁰
511=5*10²+1*10¹+1*10⁰
² ¹ ⁰
143511₈=1*8⁵+4*8⁴+3*8³+5*8²+1*8¹+1*8⁰
⁵ ⁴ ³ ² ¹ ⁰
143511₁₆=1*16⁵+4*16⁴+3*16³+5*16²+1*16¹+1*16⁰
⁵ ⁴ ³ ² ¹ ⁰
1435,11₈=1*8³+4*8²+3*8¹+5*8⁰+1*8⁻¹+1*8⁻²
³ ² ¹ ⁰⁻¹⁻²
9 2
8 1
6 4
5 3
ну вот так как то у меня по информатике 5 думаю так