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