В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
maxpotekhin2002200
maxpotekhin2002200
03.09.2022 19:50 •  Информатика

Дан массив из 11 целых чисел. Заполнить, используя формулу 6-n, где n – номер элемента массива. Вывод в
одну строку. Уменьшить на значения 5 и 7 элементов массива на 5.

Показать ответ
Ответ:
Andreyzem4
Andreyzem4
26.01.2020 16:49

Объект: То, что существует вне нас и независимо от нашего сознания, внешний мир, материальная действительность.

Модель:Образец какого-н. изделия, а также образец для изготовления чего-н.

3D графика:раздел компьютерной графики, посвящённый методам создания изображений или видео путём моделирования объёмных объектов в трёхмерном пространстве. 3D-моделирование — процесс создания трёхмерной модели объекта.

3D моделирование:Задача 3D-моделирования — разработать зрительный объёмный образ желаемого объекта.

3D редактор это программа, с которой моделируют, создают анимацию, рендерят, вобщем делают все что придумает ваша безграничная фантазия.

0,0(0 оценок)
Ответ:
sumanrahmatova
sumanrahmatova
16.07.2020 18:57
Dim mas(,) As Integer
Dim u As Integer, u2 As Integer
Dim a As Integer
Dim b As Integer 

a = InputBox("Введите Начало промежутка (A)") 
b = InputBox("Введите Конец промежутка  (В)")
       
Dim Length As Integer 
Length = CInt(((b - a) ^ 2) ^ 0.5)   
ReDim mas(Length, 1)
       
Dim x As Integer, y As Integer, i As Integer       

For x = a To b
            mas(i, 0) = x
            i += 1
Next

For x = 0 To Length
            For i = 1 To mas(x, 0)
                If (mas(x, 0) Mod i) = 0 Then
                    mas(x, 1) += 1
                End If
            Next
Next

For i = Length To 0 Step -1
            For y = Length To 1 Step -1
                If mas(y, 1) > mas(y - 1, 1) Then
                    u = mas(y, 1)
                    u2 = mas(y, 0)
                    mas(y, 1) = mas(y - 1, 1)
                    mas(y, 0) = mas(y - 1, 0)

                    mas(y - 1, 1) = u
                    mas(y - 1, 0) = u2
                End If
            Next y
Next i

Например на промежутке 5 - 55 результат такой:
48 делителей 10
36 делителей 9
24 делителей 8
30 делителей 8
40 делителей 8
42 делителей 8
54 делителей 8
12 делителей 6
18 делителей 6
20 делителей 6
28 делителей 6
32 делителей 6
44 делителей 6
45 делителей 6
50 делителей 6
52 делителей 6
16 делителей 5
6 делителей 4
8 делителей 4
10 делителей 4
14 делителей 4
15 делителей 4
21 делителей 4
22 делителей 4
26 делителей 4
27 делителей 4
33 делителей 4
34 делителей 4
35 делителей 4
38 делителей 4
39 делителей 4
46 делителей 4
51 делителей 4
55 делителей 4
9 делителей 3
25 делителей 3
49 делителей 3
5 делителей 2
7 делителей 2
11 делителей 2
13 делителей 2
17 делителей 2
19 делителей 2
23 делителей 2
29 делителей 2
31 делителей 2
37 делителей 2
41 делителей 2
43 делителей 2
47 делителей 2
53 делителей 2
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота