Найти 4 последовательных натуральных числа, произведение которых равно 1680 - VB
Формулировка задачи:
Составьте программу, которая находит 4 последовательных натуральных числа,
произведение которых равно 1680.
Решение задачи: «Найти 4 последовательных натуральных числа, произведение которых равно 1680»
textual
Листинг программы
- Sub pos()
- Dim i, dt As Long
- i = 1
- Do While i * (i + 1) * (i + 2) * (i + 3) < 1680
- i = i + 1
- Loop
- If i * (i + 1) * (i + 2) * (i + 3) = 1680 Then
- Debug.Print i; (i + 1); (i + 2); (i + 3)
- Else
- Debug.Print "Г*ГҐГІ ГІГ*ГЄГЁГµ Г·ГЁГ±ГҐГ«"
- End If
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
