Вывести двузначные числа, у которых произведение цифр кратно 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д