Написать фрагмент программы на VBA для нахождения произведения чисел с шагом 2 на интервале от -10 до 10 используя For-Next, Do-Loop While с предпосылкой
10-11 класс
|
и Do-Loop Until с послесловием
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
''''''''''''''''''''''''''''
Другие вопросы из категории
найти максимальный элемент и его индекс.
распечатать массив в строку
информации. Чему равно N?
из двух данных массивов р (n) q(n)
больше элементов, равных 1?
Читайте также
2. Дан массив целых чисел. Найти Max элемент
2)Найти количество всех нечетных чисел на интервале от 11 до 20
3)Найти сумму целых положительных четных чисел на интервале от 1 до 100
4)Найти сумму ряда,общий член которого равен А(х)=1/(3*N-2)*(3*N+1)
5)Дано произвольное число n≤100.Определить количество цифр в числе
ОЧЕНЬ НУЖНО!!НА ЯЗЫКЕ ПАСКАЛЬ!ВЫРУЧАЙТЕ!
Составить программу на Паскале. Ввести 10 целых случайных чисел (в интервале от -10 до 10). Вывести исходный массив. Найти и вывести: 1) минимальный элемент и его индекс; 2) сумму всех элементов массива; 3) количество отрицательных элементов. К каждому элементу массива прибавить 1, вывести получившийся массив. Подсказка: 1)random(10)-10 2) положительные: >0 неположительные: <=0 отрицательные: <0 неотрицательные:>=0
на экран.
на паскале
Как построить график y=sin2x на интервале от -10 до 10 с шагом 0,5 в MS Excel?