Написать операторы, которые посчитают и перемножат числа, кратные 5, ** интервале от 73...

Question

Написать операторы, которые посчитают и перемножат числа, кратные 5, на интервале от 73 до 299

Comments

делем числа в цикле на 5 и если они целые то добавлям в массив ну или складываем через оператор if

Answer 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