Есть факториал,то VB. Dim n as Integer n=InputBox("Введите n: (n!)") Dim i as Integer Dim fak As Long fak = 1 For i = 1 To n fak = fak * i ' Вычисляем факториал Next i ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 MsgBox(fak)