Найти все двузначные числа, сумма квадратов цифр которых кратна М. - VB
Формулировка задачи:
Найти все двузначные числа, сумма квадратов цифр которых кратна М.
Решение задачи: «Найти все двузначные числа, сумма квадратов цифр которых кратна М.»
textual
Листинг программы
- Private Sub Form_Load()
- Me.AutoRedraw = True
- Dim n, m As Double
- m = InputBox("")
- For n = 10 To 99
- If (((n Mod 10) ^ 2) + ((n / 10) ^ 2)) Mod m = 0 Then
- Print n, ' '
- End If
- Next
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д