Как найти произведение всех нечетных чисел первой сотни - VB

Узнай цену своей работы

Формулировка задачи:

Выведите на экран в строку произведение всех нечетных чисел первой сотни. Не получается ни как...

Решение задачи: «Как найти произведение всех нечетных чисел первой сотни»

textual
Листинг программы
  1. Option Explicit
  2. 'произведение всех нечетных чисел первой сотни.
  3. 'умножение
  4. Function mul(m1 As String, m2 As String) As String
  5. Dim a() As String, n As Byte
  6. Dim i1 As Long, i2 As Long, L1 As Long, L2 As Long
  7.   L1 = Len(m1): L2 = Len(m2)
  8.   ReDim a(L1 + L2)
  9.   For i2 = L2 To 1 Step -1
  10.     n = Mid$(m2, i2, 1)
  11.     For i1 = L1 To 1 Step -1
  12.       a(i1 + i2) = Val(a(i1 + i2)) + n * Mid$(m1, i1, 1)
  13.       If a(i1 + i2) > 9 Then
  14.         a(i1 + i2 - 1) = Val(a(i1 + i2 - 1)) + a(i1 + i2) \ 10
  15.         a(i1 + i2) = a(i1 + i2) Mod 10
  16.       End If
  17.     Next i1
  18.   Next i2
  19.   mul = Join(a, "")
  20. End Function
  21.  
  22. Sub main()
  23. Dim i As Long, Res As String
  24. Res = 1
  25. For i = 3 To 99 Step 2
  26.   Res = mul(Res, CStr(i))
  27. Next i
  28. MsgBox Res
  29. End Sub

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


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

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

14   голосов , оценка 4.071 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы