Ответы и объяснения

2013-12-20T14:17:49+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
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