Найдите сумму и произведение всех чётных чисел от 1 до 20 - VB

Узнай цену своей работы

Формулировка задачи:

Задача1: определить и распечатать название любого из 6 цветов. Задача 2: найдите сумму и произведение всех чётных чисел от 1 до 20.

Решение задачи: «Найдите сумму и произведение всех чётных чисел от 1 до 20»

textual
Листинг программы 
Dim a As Integer
Dim b As Double
Dim i As Integer
a = 0
b = 1
For i = 1 To 20
If i Mod 2 = 0 Then a = a + i
If i Mod 2 = 0 Then b = b * i
Next i
Print a
Print b
End

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.7 из 5
Похожие ответы