ответ:Знайте, братья мои возлюбленные: да будет всякий человек скор на слышание, медлен на слова, медлен на гнев; это Библия
Послание Иакова 1:19
Это Иисус обращается к своим ученикам , обучая их мудрости.
Он говорит , редки ныне умные люди, умеющие слушать , а много тех которые, не выслушав, что им говорят, не вникнув в заданный вопрос, немедленно, не обдумав, отвечают.
Когда люди даже просто беседуют между собой, то редко слушают друг друга, каждый спешит показать свой ум,блеснуть своим красноречием, оба не слушают, а только говорят, ибо не умеют быть медленными на слова.
Мало таких таких, которые заботятся о том, чтобы сказанное им было исполнено сдержанности,скромности, смирения и полезно для слушающих .
Еще меньше людей, которые медленны на гнев, раздражение, почти никто не умеет сдерживать себя.
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)