Вопрос по информатике:
Написать операторы, которые посчитают и перемножат числа, кратные 5, на интервале от 73 до 299
- 03.07.2017 08:10
- Информатика
- remove_red_eye 15854
- thumb_up 14
Ответы и объяснения 1
Dim p As Double, i As Integer
p = 1
For i = 75 To 299 Step 5
p = p * i
Next i
Print "Произведение равно "; p
End
А это дурацкий вариант на случай, если преподаватель пожелает увидеть условный оператор. Он делает ту же работу, но примерно раз в десять медленнее.
Dim p As Double, i As Integer
p = 1
For i = 73 To 299
If i Mod 5 = 0 Then p = p * i
Next i
Print "Произведение равно "; p
End
- 04.07.2017 07:16
- thumb_up 9
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.