Visual basic! дано целое число n (> 0). используя один цикл, найти сумму 1! + 2! + 3! + … + n!

Olegarxi Olegarxi    2   08.06.2019 13:20    0

Ответы
sasha290806 sasha290806  07.07.2020 17:57
Sub z()
    n = CInt(InputBox("N?"))
    k = 1
    s = 0

    For i = 1 To n
      k = k * i
      s = s + k
    Next

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