Решить в vba дано натуральное число n вычислить 1*2+2*3*4++n(n+1)**2n - вопрос №122341210205819 от кристина19841016 10.04.2020 07:01

Question

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

кристина19841016 · 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...