Sub Calculate()
Dim coll As Collection
Dim i As Integer
Dim sum As Double
Dim negative As Integer
Dim composition As Integer
negative = 0
composition = 1
Set coll = New Collection
sum = 0
n = CInt(InputBox("Введите количество чисел", "Ввод", "", 2000, 2000))
For i = 1 To n
elmnt = CInt(InputBox(i & " число", "Ввод", "", 2000, 2000))
coll.Add elmnt
sum = sum + elmnt
Next i
For i = 1 To coll.Count
If (coll.Item(i) < 0) Then
negative = negative + 1
End If
If (coll.Item(i) Mod 2 = 1) Then
composition = composition * coll.Item(i)
End If
Next i
MsgBox "Количество отрицательных = " & negative & vbCrLf & "Произведение нечетных = " & composition & vbCrLf, vbOKOnly, "Результаты"
End Sub
113₍₈₎<1101100₍₂₎(154₍₈₎)
58₍₁₆)>45₍₈₎(25₍₁₆₎)
288₍₈₎<1050₍₁₀₎(2032₍₈₎)
1245₍₁₀₎>100111₍₂₎(39₍₁₀₎)
200₍₁₀₎<159₍₁₆₎(345₍₁₀₎)
1111110₍₂₎(7E₍₁₆₎,Е-14)<7F₍₁₆₎(F-15)
Нельзя сказать, какая из этих ОС лучше, так как у них совершенно разные характеристики и цели. Linux можно настроить, что может сделать только программист, в то время как Windows более легка в управлении.
1) Windows, тк на ней легко работать.
2) Я думаю Linux, хотя тут на самом деле неважно (я считаю), тк код то везде одинаковый будет.
3) Linux, тк это одна из ее целей.
Безусловно, должны быть явными, потому что ни один из ссылочных типов не являтся подтипом значимых и преобразования должны быть заданы самостоятельно.
Ответ: 3)