Dim i As Integer Dim x As Integer Dim Summ As Integer
i = InputBox("Введите целочисленное положительное число") Summ = 1 For x = 0 To Len(CStr(i)) - 1 Summ *= CInt(Mid(CStr(i), x + 1, 1)) ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 Next
Dim x As Integer
Dim Summ As Integer
i = InputBox("Введите целочисленное положительное число")
Summ = 1
For x = 0 To Len(CStr(i)) - 1
Summ *= CInt(Mid(CStr(i), x + 1, 1))
' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
Next
MsgBox(Summ)