Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
dashaR06032006
15.04.2021 16:22 •
Информатика
Имеется 3 числа : a ,b ,c. найти количество нулей. как написать в бейсике?
Показать ответ
Ответ:
IrinaCipher
04.10.2020 05:54
Sub aaa()
a = InputBox("Введите число А")
b = InputBox("Введите число B")
c = InputBox("Введите число C")
s = a + b + c
k = 0
For i = 1 To Len(s)
If Mid(s, i, 1) = "0" Then k = k + 1
Next i
MsgBox "Общее количество нулей равно" + Str(k)
End Sub
0,0
(0 оценок)
Популярные вопросы: Информатика
Диана090980
10.07.2020 02:54
Пятеро одноклассников - аня, саша, лена, вася и миша - стали победителями школьных олимпиад по , , информатике, и . известно что: 1) победитель олимпиады по информатике учит...
дима0951871812
03.02.2022 13:34
Определите источник и приёмник информации: а. петя читает книгу сказки народов мира , б. мальчик просыпается от звонка будильника, в. завуч олейкин л.с вывешивает расписание...
kamilyusupov123
30.09.2020 10:27
Информатика! вопросы легкие 1)как называется область экрана, выделенная для работы программы? 2)как называется объект, содержащий ссылку на на файл?...
Lubov080301
29.10.2022 22:36
Создание программы обработки финансовых данных работы сотрудников НИИ. Delphi....
АнгелокN1
29.10.2022 22:36
Выбери верно заданный диапазон. 13:51 C13^E51 13C:51E C13:51 C13:E51...
fayafaya1
09.09.2022 19:01
Составьте программу, которая печатает в первой строке знак &, во второй – повтор через два пробела & & , в третьей - & & & , ..., в строке с номером...
асаса3
13.02.2020 16:39
Выбери верный адрес ячейки. 32 K 5 BB...
gribovskayairi
18.02.2023 03:49
Что из перечисленного является прикладным приложением для создания презентации?1 Writer2 Molberts3.Microsoft PowerPoint 2000...
EinLegoMan
18.10.2020 04:15
Яку алгоритмічну структуру потрібно використати при побудові правильного шестикутника? Чому? Відповідь пояснити....
Никитонрпаачвпр
02.12.2022 12:44
В начале работы Чертежник находится в точке с координатой (2, 4). В какой точке окажется Чертежник после выполнения команды - сместиться на вектор (3, 2)? Укажите правильный...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a = InputBox("Введите число А")
b = InputBox("Введите число B")
c = InputBox("Введите число C")
s = a + b + c
k = 0
For i = 1 To Len(s)
If Mid(s, i, 1) = "0" Then k = k + 1
Next i
MsgBox "Общее количество нулей равно" + Str(k)
End Sub