Задание:
Найти произведение цифр целого положительного числа, введенного с клавиатуры
Решение:
Dim i As IntegerDim x As IntegerDim Summ As Integeri=InputBox ("Введите целочисленное положительное число") Summ=1 For x=0 To Len (CStr (i) — 1 Summ*=CInt (Mid (CStr (i) , x+1, 1) ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535NextMsgBox (Summ)
Знаете другой ответ?