Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
KavaiiGot
21.05.2023 13:25 •
Информатика
Написать операторы, которые посчитают и перемножат числа, кратные 5, на интервале от 73 до 299
Показать ответ
Ответ:
asya20045
01.10.2020 22:59
Dim p As Double, i As Integer
p = 1
For i = 75 To 299 Step 5
p = p * i
Next i
Print "Произведение равно "; p
End
А это дурацкий вариант на случай, если преподаватель пожелает увидеть условный оператор. Он делает ту же работу, но примерно раз в десять медленнее.
Dim p As Double, i As Integer
p = 1
For i = 73 To 299
If i Mod 5 = 0 Then p = p * i
Next i
Print "Произведение равно "; p
End
0,0
(0 оценок)
Популярные вопросы: Информатика
cghjy6655
08.08.2022 13:21
Как называется компьютер предоставляющий свои ресурсы другим компьютерам при совместной работе?...
Yita
17.01.2023 15:45
Для наблюдения используются устройства: телескоп , микроскоп,очки,лупа?...
A01AA0
15.09.2021 21:04
ответьте на вопросы 1)какое поле будет ключевым для таблицымагазин(типмагазина,адрес,численностьассортимента,режимработы,числоработников)? a) тип магазина b) число работников c)...
EtoBolshayaProblema
31.10.2021 00:39
Скорость первого автомобиля v1 км / ч, второго - v2 км / ч, расстояние между ними s км. определить расстояние между ними через t часов, если автомобили отдаляются друг от друга....
0katushka0
29.12.2020 08:47
1-рассчитать сумму кубов всех положительных значений и их количество для функции y=3x2 + 2 cos x. составить программу для табулирования функции у на промежутке [0; 4] с шагом h=0,5....
ilyapleshakov29
02.10.2022 12:58
Ақтамберді және Мұрат жырларының тақырыбына мән бере отырып, салыстыра талдаңдар....
MCK17
17.11.2020 11:27
3D модель аныктамасын жазыныз...
Cardboard
02.04.2020 14:23
Listen to the dialogue Teens and computers . Jeanna answers questions about kids and technology today. 151204-teensoncomputers-stock.jpg Match the parts. Write the number of the...
AndreyDixord
30.07.2020 19:06
1. о чём думала Оксана глядя в зеркало? 2 сколько лет было Оксане? 3 какой подарок готовил кузнец оксане? 4 что попросила Оксана у Вакулы? НОЧЬ ПЕРЕД РОЖДЕСТВОМ ГОГОЛЬ. надо...
ДарьяРэя
31.12.2021 07:34
8-тапсырма. «Махамбеттің Баймағамбет сұлтанға айт- қаны», «Бағаналы терек» толғауларын оқи отырып, ме-тафораларды тауып, дәптерлеріңе жазыңдар. Ақынның шығармашылығына ғана тән...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
p = 1
For i = 75 To 299 Step 5
p = p * i
Next i
Print "Произведение равно "; p
End
А это дурацкий вариант на случай, если преподаватель пожелает увидеть условный оператор. Он делает ту же работу, но примерно раз в десять медленнее.
Dim p As Double, i As Integer
p = 1
For i = 73 To 299
If i Mod 5 = 0 Then p = p * i
Next i
Print "Произведение равно "; p
End