сервис вопросов и ответовкратно ли 13 утроенная сумма цифр 3-х значного числа
5-9 класс|
|
222kl
06 июля 2015 г., 11:13:59 (8 лет назад)
Ledeneva6
06 июля 2015 г., 13:37:10 (8 лет назад)
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
Ответить
Другие вопросы из категории
Читайте также
Составьте программу,которая определяет,является ли сумма цифр введенного целого трехзначного числа четным числом.
Пример ввода:567.
Пример вывода:сумма цифр числа 567-четное число
Решите в паскаль!!!
Составьте программу, проверяющую, верно ли утверждение,
что сумма цифр введенного вами целого
числа является четным.
Решите в паскаль!
Составьте программу, проверяющую, верно ли утверждение,
что сумма цифр введенного вами целого
числа является четным.
Паскаль! Дано число. Умножить его на 9 (один раз). Получить сумму его цифр. Т.е. доказать, что сумма цифр этого числа будет равна 9. (В первом раскладе
или во втором сумма цифр этого числа будет равна 9.)
Вы находитесь на странице вопроса "кратно ли 13 утроенная сумма цифр 3-х значного числа", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.