В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
dimaolegon96
dimaolegon96
29.04.2023 16:52 •  Информатика

Задача 4. Напишите требования, соответствующие шаблону формы. Требование 1: Требование 2:
Требование 3:
Требование 4:

Показать ответ
Ответ:
pechenkinaolga5
pechenkinaolga5
15.03.2021 15:21
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
0,0(0 оценок)
Ответ:
srente
srente
06.06.2022 09:46
Язык программирования какой?
Ладно, напишу словами, надеюсь вы код оформите.
пользователь вводит число, если оно делится без остачи на 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');

   realdn

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота