Найти 4 последовательных натуральных числа, произведение которых равно 1680 - VB

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

Составьте программу, которая находит 4 последовательных натуральных числа, произведение которых равно 1680.

Код к задаче: «Найти 4 последовательных натуральных числа, произведение которых равно 1680 - VB»

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

8   голосов, оценка 3.750 из 5


СОХРАНИТЬ ССЫЛКУ