Найти 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
                        

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

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

Похожие ответы