Найдите сумму и произведение всех чётных чисел от 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы