Dim msg As String
Dim x As Integer
For x = 100 To 999
If ((CInt(Mid(CStr(x), 1, 1)) + CInt(Mid(CStr(x), 2, 1)) + CInt(Mid(CStr(x), 3, 1))) * 3) Mod 13 = 0 Then
msg = msg & "Утроенная сумма цифр равная " & ((CInt(Mid(CStr(x), 1, 1)) + CInt(Mid(CStr(x), 2, 1)) + CInt(Mid(CStr(x), 3, 1))) * 3) & ", числа " & x & ", кратна 13" & vbCrLf
End If
Next
' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 MsgBox(msg)
Утроенная сумма цифр равная 39, числа 139, кратна 13
Утроенная сумма цифр равная 39, числа 148, кратна 13
Утроенная сумма цифр равная 39, числа 157, кратна 13
Утроенная сумма цифр равная 39, числа 166, кратна 13
Утроенная сумма цифр равная 39, числа 175, кратна 13
Утроенная сумма цифр равная 39, числа 184, кратна 13
Утроенная сумма цифр равная 39, числа 193, кратна 13
Утроенная сумма цифр равная 39, числа 229, кратна 13
Утроенная сумма цифр равная 39, числа 238, кратна 13
Утроенная сумма цифр равная 39, числа 247, кратна 13
Утроенная сумма цифр равная 39, числа 256, кратна 13
Утроенная сумма цифр равная 39, числа 265, кратна 13
Утроенная сумма цифр равная 39, числа 274, кратна 13
Утроенная сумма цифр равная 39, числа 283, кратна 13
Утроенная сумма цифр равная 39, числа 292, кратна 13
Утроенная сумма цифр равная 39, числа 319, кратна 13
Утроенная сумма цифр равная 39, числа 328, кратна 13
Утроенная сумма цифр равная 39, числа 337, кратна 13
Утроенная сумма цифр равная 39, числа 346, кратна 13
Утроенная сумма цифр равная 39, числа 355, кратна 13
Утроенная сумма цифр равная 39, числа 364, кратна 13
Утроенная сумма цифр равная 39, числа 373, кратна 13
Утроенная сумма цифр равная 39, числа 382, кратна 13
Утроенная сумма цифр равная 39, числа 391, кратна 13
Утроенная сумма цифр равная 39, числа 409, кратна 13
Утроенная сумма цифр равная 39, числа 418, кратна 13
Утроенная сумма цифр равная 39, числа 427, кратна 13
Утроенная сумма цифр равная 39, числа 436, кратна 13
Утроенная сумма цифр равная 39, числа 445, кратна 13
Утроенная сумма цифр равная 39, числа 454, кратна 13
Утроенная сумма цифр равная 39, числа 463, кратна 13
Утроенная сумма цифр равная 39, числа 472, кратна 13
Утроенная сумма цифр равная 39, числа 481, кратна 13
Утроенная сумма цифр равная 39, числа 490, кратна 13
Утроенная сумма цифр равная 39, числа 508, кратна 13
Утроенная сумма цифр равная 39, числа 517, кратна 13
Утроенная сумма цифр равная 39, числа 526, кратна 13
Утроенная сумма цифр равная 39, числа 535, кратна 13
Утроенная сумма цифр равная 39, числа 544, кратна 13
Утроенная сумма цифр равная 39, числа 553, кратна 13
Утроенная сумма цифр равная 39, числа 562, кратна 13
Утроенная сумма цифр равная 39, числа 571, кратна 13
Утроенная сумма цифр равная 39, числа 580, кратна 13
Утроенная сумма цифр равная 39, числа 607, кратна 13
Утроенная сумма цифр равная 39, числа 616, кратна 13
Утроенная сумма цифр равная 39, числа 625, кратна 13
Утроенная сумма цифр равная 39, числа 634, кратна 13
Утроенная сумма цифр равная 39, числа 643, кратна 13
Утроенная сумма цифр равная 39, числа 652, кратна 13
Утроенная сумма цифр равная 39, числа 661, кратна 13
Утроенная сумма цифр равная 39, числа 670, кратна 13
Утроенная сумма цифр равная 39, числа 706, кратна 13
Утроенная сумма цифр равная 39, числа 715, кратна 13
Утроенная сумма цифр равная 39, числа 724, кратна 13
Утроенная сумма цифр равная 39, числа 733, кратна 13
Утроенная сумма цифр равная 39, числа 742, кратна 13
Утроенная сумма цифр равная 39, числа 751, кратна 13
Утроенная сумма цифр равная 39, числа 760, кратна 13
Утроенная сумма цифр равная 39, числа 805, кратна 13
Утроенная сумма цифр равная 39, числа 814, кратна 13
Утроенная сумма цифр равная 39, числа 823, кратна 13
Утроенная сумма цифр равная 39, числа 832, кратна 13
Утроенная сумма цифр равная 39, числа 841, кратна 13
Утроенная сумма цифр равная 39, числа 850, кратна 13
Утроенная сумма цифр равная 78, числа 899, кратна 13
Утроенная сумма цифр равная 39, числа 904, кратна 13
Утроенная сумма цифр равная 39, числа 913, кратна 13
Утроенная сумма цифр равная 39, числа 922, кратна 13
Утроенная сумма цифр равная 39, числа 931, кратна 13
Утроенная сумма цифр равная 39, числа 940, кратна 13
Утроенная сумма цифр равная 78, числа 989, кратна 13
Утроенная сумма цифр равная 78, числа 998, кратна 13