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

Question

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

Danrukn · Answer

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 sEnd Sub...