Вопрос по информатике:
Дан целочисленный массив из 10 элементов.Написать программу ,находящую сумму элементов массива кратных 3 или 5?
- 04.07.2018 18:17
- Информатика
- remove_red_eye 10590
- thumb_up 37
Ответы и объяснения 1
Dim i As Integer
Dim Massiv() As Integer
Dim Summ As Integer
For i =0 To Massiv.Length - 1
If Massiv(i) Mod 2 = 0 Or Massiv(i) Mod 3 = 0 Then Summ += Massiv(i)
Next
' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
MsgBox(Summ)
- 05.07.2018 05:05
- thumb_up 23
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.