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
В вычислительной технике найболее употребляемыми являются коды ASCII, что означает американчки чтандартный код обмена информацией. В таблице 256 символов. Таблица состоит из двух частей: стандартной и альтернативной. Стандартная часть- это первые 128 символов, коды от 0 до 127: цифры, буквы латинского алфавита и специальные символы для управлением компьютера Альтернативная часть - это вторые 128 символов, коды от 128 до 255, которые предназначены для размещения символов национальных алфавитов (русский, казахский, японский и т.д.), псевдографических и некоторых специальных символов.
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
В таблице 256 символов. Таблица состоит из двух частей: стандартной и альтернативной.
Стандартная часть- это первые 128 символов, коды от 0 до 127: цифры, буквы латинского алфавита и специальные символы для управлением компьютера
Альтернативная часть - это вторые 128 символов, коды от 128 до 255, которые предназначены для размещения символов национальных алфавитов (русский, казахский, японский и т.д.), псевдографических и некоторых специальных символов.