tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Имеется 3 числа : a
Имеется 3 числа : a ,b ,c. найти количество нулей. как написать в бейсике?
сарвиназ002
3 08.08.2019 21:30
2
Ответы
Djrktxf
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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Adln48
08.12.2020 01:28
База данных (Access) «Телефонные переговоры» должна хранить следующую информацию: 1. Фамилия абонента.2. Имя абонента.3. Отчество абонента.4. Фотография абонента.5. Телефонный...
Zelikovakasimov
08.12.2020 01:28
Задание 5). Информатика. объясните и решите, буду благодарна...
мария2386
08.12.2020 01:28
разобраться, а то я вообще не понимаю. Можно ещё объяснить?!...
lol1040
08.12.2020 01:29
Найти сумму ряда чисел от 1 до 10, используя циклы: с предусловием (пока истина), с постусловием (до тех пор, пока ложь) и с параметром. При решении задания применить оператор...
ХочуЗнатьВсе1
08.12.2020 01:30
Дана блок-схема. Какое значение будет иметь z на выходе, если x=18?...
НастЮхАforever
03.12.2020 10:51
Вести основании высоту трапеции вывести площадь трапеции IDLE PYTHON ...
romashka301
03.12.2020 10:51
Информатика. Укажите верно записанную формулу: = ЕСЛИ (А3 = 5; В4* 1,12 И В4 * 0,1) = ЕСЛИ (А3 : = 5; В4* 1,12; В4 * 0,1) = ЕСЛИ (А3 = 5; В4* 1,12; В4 * 0,1) = ЕСЛИ (А3...
Sonya2308
30.09.2019 10:20
Назначение антивирусных программ под названием детекторы : а) обнаружение и уничтожение вирусов б) контроль возможных путей распространения компьютерных вирусов в) обнаружение...
Angela960
30.09.2019 10:10
Решите два примера правильно только на листочек сфоткайте 127.10=? 2=? 8=? 16 2f16=? 10 вот два за этих 39 решите но налисточек желательно если можно : )...
Лиза5666
30.09.2019 10:10
Уплемени весельчаки в алфавите 45 символов. сколько бит информации будет нести в себе слово, состоящее из 15 букв ? ( как решать ? )...
Популярные вопросы
Сколько дней в 9 неделях?...
2
Приведите пример термина из каждой области науки...
3
за Сочинение рассуждение на тему этикет окружающих людей...
1
5. На рис.7 ABCD ov A, B, C, D. Найдите A, B, D,Aи CD, если AB = 24,...
2
Охарактеризуйте рыночную экономику...
3
Ақпаратты адамның сезім мүшелері арқылы қанша пайыз қабылдайтынын жаз....
2
Значение слова Канк,Зах,Ханарык,Ак-Тюбе,Мардан-Куйук....
3
Сколько образов в музыке «Танец с саблями» ...
3
Расскажите о своем полднике: Mon goûter 1.Я хочу есть после уроков …...
2
‼️‼️‼️‼️‼️‼️‼️‼️‼️‼️‼️ ПРИТЧА ОСЛИК И КОЛОДЕЦ ПОЧЕМУ ОСЛИК УБЕЖАЛ? ОТВЕТЫ...
1
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