Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
aveter256
18.03.2023 01:24 •
Другие предметы
Обозначь на конечной карте формы Казахстана (горы, равнины, реки, озера). Укажи самые крупные объекты. Определи их хозяйственное значение
Показать ответ
Ответ:
Melenocka0606
20.01.2020 16:09
' 1)Напиши программу, выводящую на экран степени числа 3 в интервале от а до b включительно (а и b задаются пользователем).
Dim a As Integer
Dim b As Integer
Dim i As Integer
a = InputBox("Введите а")
b = InputBox("Введите b")
Dim msg As String
msg = ""
For i = a To b
msg = msg & 3 в степени " & i & " равно " & 3 ^ i & vbCrLf
Next
MsgBox(msg)
2)Найти все делители числа 1204.
Dim i As Integer
Dim msg As String
msg = ""
For i = 1 To 1204
If 1204 Mod i = 0 Then
msg = msg & "Число " & i & " является делителем 1204." & vbCrLf End If
Next
MsgBox(msg)
0,0
(0 оценок)
Ответ:
150819761
20.01.2020 16:09
' 1)Напиши программу, выводящую на экран степени числа 3 в интервале от а до b включительно (а и b задаются пользователем).
Dim a As Integer
Dim b As Integer
Dim i As Integer
a = InputBox("Введите а")
b = InputBox("Введите b")
Dim msg As String
msg = ""
For i = a To b
msg = msg & 3 в степени " & i & " равно " & 3 ^ i & vbCrLf
Next
MsgBox(msg)
2)Найти все делители числа 1204.
Dim i As Integer
Dim msg As String
msg = ""
For i = 1 To 1204
If 1204 Mod i = 0 Then
msg = msg & "Число " & i & " является делителем 1204." & vbCrLf End If
Next
MsgBox(msg)
0,0
(0 оценок)
Популярные вопросы: Другие предметы
taisia2305
23.12.2022 10:24
Определите по подвижной карте звездного неба (ПКЗН) какие созвездия полностью виды в полночь 1 июня. Какие созвездия в это время являются восходящими, заходящими, кульминирующими....
zhenyadobr
07.03.2023 06:48
1-жолы «Жерұйық»Сөзіне синоним;2-жолы екі сын есім...
egorsinitsyn9Egor
01.10.2022 22:55
надо сделать конспект по теме Особенности прроды кубани и своей местности....
kotovich9292
14.07.2021 20:07
Какое оборудование применяют при изготовлении кровли для крыши.Может ли оно полностью заменить труд кровельщика и как?...
кари345
14.07.2021 20:07
Соотнеси названия океанов с номерами на карте....
Angel1509kl
26.12.2021 17:59
Туура жообун белгилегиле сан атоочту кайталап еске тушургуло...
sergey070707
26.12.2021 17:59
План на тему біологічні ритми і здоровя...
DIMAES0
28.03.2021 08:14
I5 8400 будет работать с rtx 30 серии...
FrelPro
11.02.2020 11:22
Выберите правильный ответ из a), b), c) или d) для каждого пропуска в нижерасположенном диалоге. kevin! you (1) listening to me. wake up! what (2) you thinking about? my summer holiday....
умная196
16.12.2021 22:14
Второстепеные причины распада среднивековых государств...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Dim a As Integer
Dim b As Integer
Dim i As Integer
a = InputBox("Введите а")
b = InputBox("Введите b")
Dim msg As String
msg = ""
For i = a To b
msg = msg & 3 в степени " & i & " равно " & 3 ^ i & vbCrLf
Next
MsgBox(msg)
2)Найти все делители числа 1204.
Dim i As Integer
Dim msg As String
msg = ""
For i = 1 To 1204
If 1204 Mod i = 0 Then
msg = msg & "Число " & i & " является делителем 1204." & vbCrLf End If
Next
MsgBox(msg)
Dim a As Integer
Dim b As Integer
Dim i As Integer
a = InputBox("Введите а")
b = InputBox("Введите b")
Dim msg As String
msg = ""
For i = a To b
msg = msg & 3 в степени " & i & " равно " & 3 ^ i & vbCrLf
Next
MsgBox(msg)
2)Найти все делители числа 1204.
Dim i As Integer
Dim msg As String
msg = ""
For i = 1 To 1204
If 1204 Mod i = 0 Then
msg = msg & "Число " & i & " является делителем 1204." & vbCrLf End If
Next
MsgBox(msg)