Вывести двузначные числа, у которых произведение цифр кратно 12 - VB

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

Вывести числа, у которых произведение двузначных нечётных чисел кратных 13

Решение задачи: «Вывести двузначные числа, у которых произведение цифр кратно 12»

textual
                            Листинг программы 
                        

                            Private Sub Комманда1_Click()
i = 11
j = 1
 
Do While i < 100
        Do While j * 13 < 100
                Debug.Print 13 * i * j
                j = j + 2
                Loop
            j = 1
            i = i + 2
        Loop
End Sub
                        

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

9 голосов , оценка 4 из 5

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