Sub
massiv01()
Dim M(3000)
As Integer
S = 0
N=2014
For i = 2
To N - 1
If M(i) < M(i - 1) And M(i) < M(i + 1)
And M(i) \ 3 = M(i) / 3 Then
S = S + 1
End If
Next i
If M(1)
< M(2) And M(i) \ 3 = M(i) / 3 Then
S = S + 1
End If
If M(N)
< M(N - 1) And M(i) \ 3 = M(i) / 3 Then
S = S + 1
End If
MsgBox
"Min = : " & S
<span>End Sub
Вариант VBA Excel
Посмотреть код Alt+F11
</span>
Ширина ячейки мала для отображения числа, необходимо увеличить ширину ячейки
Ответ:
Подходящая? Я считаю что можно поставить до GTX 1060 3 GB или RX 580 4 GB. В YouTub'е много тестов показаны для этих видеокарт. GL
<span>Приклад 1. Скласти
алгоритм обчислення і роздрукування значення виразу у = (Ax+B)(Cx+D). 1. Ввести значення А, В, С, D, х. 2. Обчислити у = (Ax+B)(Cx+D). 3. Роздрукувати у. <span>4. Процес обчислення завершити.</span></span>