Среди двух чисел наите те сумма квадратов цифр которых делиться на 13 - VB

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

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

visual basic среди двух чисел наите те сумма квадратов цифр которых делиться на 13

Решение задачи: «Среди двух чисел наите те сумма квадратов цифр которых делиться на 13»

textual
Листинг программы
Private Sub Command1_Click()
    Dim i As Integer, k As Integer
    For i = 10 To 99
        k = (i \ 10) ^ 2 + (i Mod 10) ^ 2
        If (k Mod 13 = 0) Then
            Print CStr(i) + vbTab + CStr(k)
        End If
    Next
End Sub

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


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

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

9   голосов , оценка 4.111 из 5
Похожие ответы