Как найти произведение всех нечетных чисел первой сотни - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.071 из 5
Похожие ответы