Вывести двузначные числа, у которых произведение цифр кратно 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
Похожие ответы