Найти сумму четных членов ряда, и произведение нечетных членов ряда

@alaw3535 · Регистрация: 04.12.2014

Почему не работает,кто объяснит?

Ввести массив А(N) из членов ряда А(i) = i ^ (1 / 3) Число элементов ограничены по условию А(I) <= М, где М >> 1. Найти сумму четных членов ряда и произведение нечетных членов ряда.

Visual Basic

Sub Ç177()
    Dim A() As Single
    Dim L%, N%, i%, P!, S!
    L = 21 ' строка начала решения задачи
    N = Cells(L, 2)
    ReDim A(1 To Int(M ^ 3))
    For i = 1 To N
      A(i) = i ^ (1 / 3)
      Cells(i, 2) = A(i)
    Next
    min = A(1)
    P = 1
    For i = 1 To N
      If A(i) Mod 2 Then P = P * A(i)
      If A(i) Mod 2 Then S = S + A(i)
    Next
    Cells(L * 3, 2) = P
    Cells(L + 3, 4) = S
End Sub

@Alex77755 · 04.12.2014, 00:32

А разве бейсик не объясняет?

@Alex77755 11476 / 3768 / 676 Регистрация: 13.02.2009 Сообщений: 11,126
	04.12.2014, 00:32	2
	А разве бейсик не объясняет? Миниатюры 0

Опции темы