Предмет: Информатика,
автор: cbeta65cbeta
Написать фрагмент программы на VBA для нахождения произведения чисел с шагом 2 на интервале от -10 до 10 используя For-Next, Do-Loop While с предпосылкой и Do-Loop Until с послесловием
Ответы
Автор ответа:
0
Dim i as Integer
Dim Summ as Integer
''''''''''''''''''''''''''''''''''''
Summ=1
For i=-10 to 10 Step 2
Summ=Summ*i
Next
'''''''''''''''''''''''''''''''''
i=-10
Summ=1
Do
summ = summ * i
i = i + 2
Loop While i <> 12
''''''''''''''''''''''''''''
i=-10
Summ=1
Do
summ = summ * i
i = i + 2
Loop Until i = 12
Dim Summ as Integer
''''''''''''''''''''''''''''''''''''
Summ=1
For i=-10 to 10 Step 2
Summ=Summ*i
Next
'''''''''''''''''''''''''''''''''
i=-10
Summ=1
Do
summ = summ * i
i = i + 2
Loop While i <> 12
''''''''''''''''''''''''''''
i=-10
Summ=1
Do
summ = summ * i
i = i + 2
Loop Until i = 12
Интересные вопросы
Предмет: Математика,
автор: a00894393
Предмет: Алгебра,
автор: margo1983ninel
Предмет: Геометрия,
автор: sahzodaakramova45
Предмет: Литература,
автор: Lesik04