Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
klymova2006oz080r
03.06.2023 07:37 •
Информатика
Склавиатуры вводятся 10 чисел. найдите и напечатайте сумму чисел кратных 3
Показать ответ
Ответ:
jennie082017
01.10.2020 14:02
Dim Massiv(9) as integer
Dim x as integer
Dim msg as string
For x=0 to 9
Massiv(x)=InputBox("Введите число №" & x+1)
If Massiv(x) mod 3 =0 then msg=msg & "Число " & Massiv(x) & " кратно 3." & vbCrLf
Next
MsgBox (msg)
0,0
(0 оценок)
Популярные вопросы: Информатика
лолkjk
25.04.2021 22:47
1. Какая характеристика определяет количество измерений входного звукового сигнала за 1 секунду? a. Частота дискретизации b. Разрядность дискретизации c. Длительность...
ЮлияМедведева
20.09.2021 10:28
«История Операционных Систем для персонального компьютера». Нужно сравнить ныне существующие и уже отжившие свое ОС, выделить отличия и найти сходства. (ответ должен...
pipidon17
12.06.2022 14:07
Втекстовом документе слова, в которых есть ошибки, комп подчеркивает красной волнистой линией. подумай и скажи, как комп может определять неправильно написанное слово,...
стефания31
03.01.2021 21:10
Питон первые 3 номера...
Kr1c
06.04.2020 10:08
Глава 2. Задачи для самостоятельной работы Задание 1. ВысказыванияЗадача 1.1 Определение высказывания и его типа (базовый уровень)Среди следующих предложений выделить...
valeria232425
18.06.2022 02:06
составить алгоритм и блок схему в 4 5 заданий по блок схеме надо составить алгоритм Буду очень благодарна...
qwerty5543
17.01.2020 05:11
Решить в Паскаль: Найти максимальную полуразность двух соседних чисел(массивы)...
Diman4ik355
24.04.2021 14:15
Используя MS Excel, вычисли сумму данных чисел 1597; 3189; 9803; 23390...
jgkdjsnsnbdndndndjd
28.03.2023 14:45
Дана матрица А(nxn). Написать программу, которая упорядочивает элементы каждого столбца этой матрицы по убыванию написать программу на С++, заранее...
Настятвсердечко
07.12.2022 06:09
условно делится на две части — для правой и левой рук.восклицательный знакклавиатурамониторбукваклавиатура??...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Dim x as integer
Dim msg as string
For x=0 to 9
Massiv(x)=InputBox("Введите число №" & x+1)
If Massiv(x) mod 3 =0 then msg=msg & "Число " & Massiv(x) & " кратно 3." & vbCrLf
Next
MsgBox (msg)