Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
muzaffarahmedov
06.02.2021 01:41 •
Другие предметы
Задание № 2. Определить степень согласованности мнений 5 экспертов, оценивающих свойство 7 изделий
👇
Увидеть ответ
Открыть все ответы
Ответ:
милота0011
06.02.2021
' 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)
4,5
(74 оценок)
Ответ:
matsakov99
06.02.2021
' 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)
4,4
(85 оценок)
Это интересно:
С
Семейная-жизнь
05.11.2021
Как увеличить амниотическую жидкость...
К
Компьютеры-и-электроника
05.06.2020
Как обновить приложение на Android: Инструкция от профессионалов...
П
Праздники-и-традиции
12.08.2021
Как сделать День Святого Валентина особенным с ограниченным бюджетом...
С
Стиль-и-уход-за-собой
10.09.2020
Как подобрать симпатичные наряды: советы эксперта по моде...
В
Взаимоотношения
10.02.2023
Как привлечь внимание своего парня: 5 советов, чтобы выглядеть горячей штучкой...
И
Искусство-и-развлечения
26.03.2021
Как найти свой танцевальный стиль?...
К
Компьютеры-и-электроника
23.02.2021
Битмоджи на Facebook: Как произвести впечатление на своих друзей...
С
Стиль-и-уход-за-собой
04.06.2021
Избавляемся от перхоти натуральными средствами...
С
Стиль-и-уход-за-собой
24.08.2022
Как избавиться от прыщей на спине...
К
Кулинария-и-гостеприимство
01.02.2021
Как растопить белый шоколад: лучшие способы и советы...
Новые ответы от MOGZ: Другие предметы
Pandorica
05.03.2022
Построить таблицу истинности...
Сельга7
30.11.2020
Стал прорывом в освоении космического пространства и длился 108 минут...
леньчайник
30.12.2022
Пацієнта М., 25 років переведено в хірургічне відділення після оперативного втручання на черевній порожнині. Лікар призначив застосувати міхур з льодом. Медична сестра, доставши...
МихаилКузмичёв
07.07.2021
Написати твір - мініатюру на тему:«Діти України прагнуть миру!»....
olkvochka1707
26.02.2022
Задание 1 Заполните таблицу «Условия существования живых организмов» Условия Значение данного условия в жизни животных Значение данного условия в жизни растений Значение данного...
Даріна11111111
01.09.2022
Х 12. Замінити таким виразом, щоб рівність стала тотожністю: а) (x2.x7):* = x13; б) *: (x.x) = х 12....
zero407
25.10.2020
решить тест по Особенностям Делопроизводства в России . 1. Правовой акт (документ) являющийся одним из учредительных документов, определяющих правовой статус организации, необходимый...
medinceva24674qq
31.10.2020
Соч по всем ист 5 класс 4 четверть...
Andrey346563545
19.02.2020
Выявление трудностей изготовления проекта...
Neznau27
09.08.2021
Рассмотри ресунки какаие правила поведение изображены на ресунке ...
MOGZ ответил
Деление клетки-снова размножения и роста организмов. митоз и его значения?...
Разложите на множители с2 - 16с : )...
Яку роль відіграють бактерії у виникненні захворювань?...
Восновании прямой призмы лежит равносторонний треугольник со стороной 2 см....
Вякому вірші куліша виражається осуд народу...
Какие словосочетания синонимичны по значению? запишите их номера. 1) горный...
Нок(44; 33) нок(63; 18) нод(45; 55) нод(115; 92)...
1. ознакомьтесь с текстом.я люблю в своей великой родине все: … ее печальные...
Составьте и запишите предложения, используя данные слова в качестве обособленных...
Формула реактива,для распознавания альдегида : а)лакмус б)fecl3 (p-p) в)l2...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
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)