Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
STONEISLAND1488
27.12.2021 10:13 •
Информатика
Имеется 3 числа : a ,b ,c. найти количество нулей. как написать в бейсике?
Показать ответ
Ответ:
yakov228
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 оценок)
Популярные вопросы: Информатика
vlad0805
24.01.2022 11:03
Oпределите сумму чисел: F1¹⁶+45¹⁶ C5¹⁶+1A¹⁶ D1¹⁶+10¹⁶...
Данил9323
05.01.2021 22:35
Феофилакт хочет купить ракетки и шарики для игры в настольный теннис. Один комплект ракеток стоит A рублей, один шарик стоит B рублей. У Феофилакта есть C рублей, C≥A, он покупает...
евгения406
24.03.2021 07:18
Дан фрагмент электронной таблицы. Определите значение, записанное вячейке С2.ВСA159=А1+B2=СТЕПЕНЫB1;2)+А2 =C1-(B2-15)2 =А12...
alexaval1980p08mu0
28.07.2020 04:47
Вы положили n рублей в один из процветающих банков. ежегодный процент прироста вклада составляет 7%. какое транспортное средство вы сможете приобрести через 10 лет, если велосипед...
krasnyukova1
30.12.2021 16:11
Расставьте еденици измерения информации по убыванию 2400 бит 2048мбайт 2кбайт 48 бит 1,5гбайт 5 байт...
Владислава1626
24.04.2020 06:41
Сколько ячеек входит в диапазон b4 : b6...
AkiraK666
15.08.2022 08:52
1. напишите следующие высказывания в виде логических выражений: на уроке ученики выполняли лабораторную работу и сообщали результаты исследований учителю. ты можешь купить в магазине...
peschanskaakris
15.08.2022 08:52
Вывести целое число не более чем 10 разрядов и цифру. проверить что цифра входит в число...
976Марина1111111111
15.08.2022 08:52
Создать массив из цифр из 20 элементов и инвентировать его (т.е. вывернуть его задом на перед)...
avysocka
01.07.2020 20:01
Константой является: b=2; r=56; й: char; ю=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