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

130

200

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

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

Анестнйшен

Информатика

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

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