При датчика случайных чисел вводится последовательность a, состоящая из n (случайное трёхзначное число) целых положительных случайных 4-х значных чисел.получить последовательность b, куда включить только простые числа из последовательности а.обе последовательности вывести в соседние столбцы рабочего листа.на языке vba

276

443

Посмотреть ответы 2

Ответы на вопрос:

vitek0000

Информатика

4,5(86 оценок)

Function isprime(n as integer) as boolean dim found as integer found = n mod 2 = 0 dim p as integer p = 3 do while not found and p * p < = n found = n mod p = 0 p = p + 2 loop isprime = not found end function sub main() randomize timer dim n as integer, i as integer, k as integer n = 100 + int(round(899 * rnd)) redim a(1 to n) as integer redim b(1 to n) as integer i = 0: k = 0 msgbox n do while i < n i = i + 1 a(i) = 1000 + int(round(8999 * rnd)) if isprime(a(i)) then k = k + 1 b(k) = a(i) end if loop rows("1: 1000").clear range(cells(1, 1), cells(n, 1)) = a for i = 1 to k cells(i, 1) = a(i) cells(i, 2) = b(i) next i if k > 1 then 'сортировка второй колонки, так красивее dim r as range set r = range(cells(1, 2), cells(k, 2)) r.sort range("b1") end if for i = k + 1 to n cells(i, 1) = a(i) next i end sub

andrii213

Информатика

4,5(80 оценок)

1.ссылки в документе нужны для того что бы переходить на нужный сайт

2. концевая половина ссылки

вставить полностью вся ссылка

3.ссылки нужны для целей что бы прочитать электронную книгу или переход на нужный сайт

4.концевая это ее конец

ссылки из литературы это связанное с ссылками на определённый сайт книг

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.