Відповідь вікно папка ярлик
Самое простое, заполнить только четные элементы, т.к. в нечетных по умолчанию уже ноль стоит))
DIM A(15)
FOR I = 2 TO 15 STEP 2
A(I) = 1
NEXT I
Если нужно увидеть массив, можно дополнить блоком вывода
FOR I = 1 TO 15
PRINT A(I)
NEXT I
Ну, а если явным образом вписывать нули, то тогда так
DIM A(15)
FOR I = 1 TO 15 STEP 2
A(I) = 0
NEXT I
FOR I = 2 TO 15 STEP 2
A(I) = 1
NEXT I
1кбт=1000 байт
10 кбт= 10 000 байт
1байт = 8 бит
1Кбт= 8000 бит
10 Кбт = 80 000 бит
2.
32*40*48= 2^(5) *5*2³*3*2⁴= 5*3*2¹²
2^10=1 Кбт
15*2² Кбт =15*4 Кбт=60 Кбт
Сумма чаевых официанту: Sum = 0.15 * (X1 + X2 + X3);
Если X1 = X2 = X3, то Sum = 0.15 * 3 * X = 0.45 * X