Как найти произведение всех нечетных чисел первой сотни - VB
Формулировка задачи:
Выведите на экран в строку произведение всех нечетных чисел первой сотни. Не получается ни как...
Решение задачи: «Как найти произведение всех нечетных чисел первой сотни»
textual
Листинг программы
Option Explicit 'произведение всех нечетных чисел первой сотни. 'умножение Function mul(m1 As String, m2 As String) As String Dim a() As String, n As Byte Dim i1 As Long, i2 As Long, L1 As Long, L2 As Long L1 = Len(m1): L2 = Len(m2) ReDim a(L1 + L2) For i2 = L2 To 1 Step -1 n = Mid$(m2, i2, 1) For i1 = L1 To 1 Step -1 a(i1 + i2) = Val(a(i1 + i2)) + n * Mid$(m1, i1, 1) If a(i1 + i2) > 9 Then a(i1 + i2 - 1) = Val(a(i1 + i2 - 1)) + a(i1 + i2) \ 10 a(i1 + i2) = a(i1 + i2) Mod 10 End If Next i1 Next i2 mul = Join(a, "") End Function Sub main() Dim i As Long, Res As String Res = 1 For i = 3 To 99 Step 2 Res = mul(Res, CStr(i)) Next i MsgBox Res End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д