liteman1000ow7ldr
05.12.2021 09:44

нужно написать программу поиска максимального четного числа из 100 случайных чисел, созданных генератором случайных чисел. А в программе использовать структуру ветвление и цикл с фиксированным количеством повторов.


нужно написать программу поиска максимального четного числа из 100 случайных чисел, созданных генера

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
nastya66669
02.02.2023 21:20
Вам нужно зайти в меню «Пуск», в строке поиска написать команду «CMD» и нажать клавишу «Enter». Откроется окно терминала, где вам нужно ввести команду «ipconfig» и вновь нажать клавишу «Enter», после чего откроется список всех ваших сетевых подключений.

В этом списке вы увидите и ваш ip адрес и, соответственно, маску подсети Заходите в Панель управления\Сеть и Интернет\Сетевые подключения, выбираете ваше подключение и кликом правой кнопкой мыши переходите в графу «Состояние». В открывшемся окне кликните по клавише «Сведения». Откроется новое окно вашего подключения, где будут указаны ваш ip и маска подсети. Еще один узнать маску подсети по ip адресу: кликните по значку подключения в правом нижнем углу монитора и выберите «Центр управления сетями». Затем кликните в открывшемся окне «Изменение параметров адаптера» и дальше действуете аналогично вышеописанному варианту: начиная с выбора вашего подключения.
0,0(0 оценок)
Ответ:
avruchka7
10.09.2022 08:35
        '     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 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота