Всемирная паутина, наверно
World Wide Web
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
Ответ 100% правильный: 2D,D8
Шоколад - x;
зефир - y;
x+y=15000;
y=12000;
x=15000-12000=3000;
Ответ: 3000
PascalABC.NET 3.2:
var
a, b: real;
begin
readln(a, b);
write(<u>(a + b)/2 + (a + b)</u>)
end.
<em>
Пример ввода:</em>
3 7
<em>Пример вывода:</em>
15