Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
MSТигруля
20.03.2022 14:27 •
Другие предметы
Определите высоту над землей где сила тяготения станет равна 0,7 F радиус Земли принять 6400км F сила тяготения на поверхностью земли ЧЕНЬ
Показать ответ
Ответ:
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 оценок)
Популярные вопросы: Другие предметы
jonni0203
26.08.2020 03:26
1. Когда вы двигаетесь, у вас появляется энергия. Назови три примера использования этой энергии!...
Anvar666
06.10.2021 07:43
Исследовать устойчивость нулевого решения уравнения: y + 2y + 2y + 3y = 0...
Альмира2007
16.04.2022 19:21
Стих про великую отчественную войну до 12 строк который легко учится...
Никита256366
02.11.2021 13:04
1852 г. генрих фельтер и постройка дефибрира...
Deni05
30.05.2022 02:23
Сбережения в банке выгоднее, чем дома для работы в классе 1. решите . ваш сосед иван петрович получил небольшое наслед- ство в размере 120 тыс. руб. и решил хранить деньги дома. но...
ИльяФин
15.08.2020 14:20
Народ Как решать задание по РЭШ? Мне отправили файл,открываю его,решаю,дальше кнопка сохранить задание ,а оно не сохраняется,учитель видет,что ты сохранил сайт тупит,я не знаю...)...
salsavip333
26.06.2021 05:49
Напиши все в точ точ как я и получишь прям все что я написала от начала до конца...
Rafaelnodat1
16.02.2023 01:11
Нікола Буало вважав, що Мольєр - це зірка, яка ніколи не згасне. Обґрунтуйте цю думку. Чому Мольєра вважають одним із найгеніальніших комедіографів світової літератури?До ть пліз...
dmxboy
15.05.2023 00:33
1.Когда и где родился композитор А.Вивальди(годы, эпоха) 2.Какие еще профессии имел А.Вивальди? 3.Перечислите произведения композитора(3-5) 4.В каких жанрах сочинял музыку А.Вивальди?...
DenisMarvin
01.07.2020 17:01
Выброс шара (снаряда) с канала ствола происходит: а) под давлением силирук (пальцев человека) б) под давлением общественности в) от резкого увеличения атмосферного давления г) под...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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)