Найти все двузначные числа, сумма квадратов цифр которых кратна М. - VB

Узнай цену своей работы

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

Найти все двузначные числа, сумма квадратов цифр которых кратна М.

Решение задачи: «Найти все двузначные числа, сумма квадратов цифр которых кратна М.»

textual
Листинг программы
  1. Private Sub Form_Load()
  2. Me.AutoRedraw = True
  3. Dim n, m As Double
  4. m = InputBox("")
  5.  
  6. For n = 10 To 99
  7. If (((n Mod 10) ^ 2) + ((n / 10) ^ 2)) Mod m = 0 Then
  8. Print n, ' '
  9. End If
  10. Next
  11.  
  12. End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

13   голосов , оценка 4.385 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы