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
Язык программирования какой? Ладно, напишу словами, надеюсь вы код оформите. пользователь вводит число, если оно делится без остачи на 2 - выводим, что оно чётное, если нет, то выводим что оно не чётное. Функция деления по модулю на С-подобных языках "%", на других "mod". Примеры: С++ #include <iostream> using namespace std;
int main() { int n; cin >> n; if (n%2==0) cout << "This number is even"; else cout << "It is not even number"; cin.get(); cin.get(); return 0; }
Pascal
program example;
var n : integer;
begin
readln(n);
if n mod 2 = 0 then write('Number is even') else write ('It is not even number');
1. Начало
2. ПОВТОРЯЙ___2___РАЗА.
3. ПОВТОРЯЙ ДЛЯ ФИГУР (_1,2_,3_( кружок и ромбик и треугольник ) )
4. Нарисуй клетку
5. Нарисуй в клетке ФИГУРУ
6. ПОВТОРЯЙ___3 РАЗА
7. Впиши самую верхнюю пустую фигуру4
8. Впиши в следующую пустую фигуру 5
9. Конец