Решить в vba
дано натуральное число n вычислить 1*2+2*3*4++n(n+1)**2n

тамик50 тамик50    2   19.11.2019 14:05    2

Ответы
katyar980 katyar980  17.08.2020 13:24

Sub abcd()

   n = CInt(InputBox("Введите натуральное n"))

   s = 0#

   For i = 1 To n

       p = 1#

       For j = i To 2 * i

           p = p * j

       Next j

       s = s + p

   Next i

   MsgBox s

End Sub

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика