Question

Написать процедуру (функцию), которая определяет делимость числа на первые 16 простых чисел. Делимость на каждое число записывается в соответствующий бит возвращаемого числа. Делимость на 2 – первый бит, на 3 – второй, на 5 – третий, на 7 – четвертый – и т.д. Например: Если аргументом процедуры (функции) будет число 45 (5*5*3), то функция должна возвратить число 6 (00000110), так как 45 делится на 5 и на 3 и не делится ни на 2 и ни на 7 и не на другие простые множители.

Answer 1

uses School;  // PascalABC.NET в версии начиная с 15.04.2020

function Делимость(Число: integer): integer;

begin

 var БитоваяСтрока := '';

 foreach var Простое in FirstPrimes(16) do

   if Число mod Простое = 0 then

     БитоваяСтрока := '1' + БитоваяСтрока

   else

     БитоваяСтрока := '0' + БитоваяСтрока;

 Result := Dec(БитоваяСтрока, 2)

end;

begin   // Тестовая программа

 Делимость(ReadInteger).Print

end.

Answer 2

Вы можете написать такую процедуру (или функцию) на языке программирования. Ниже приведен пример на Python:

pythonCopy code
def is_prime(num):
    if num < 2:
        return False
    for i in range(2, int(num**0.5) + 1):
        if num % i == 0:
            return False
    return True

def get_divisibility_bitmap(number):
    primes = [2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53]
    bitmap = 0
    for i, prime in enumerate(primes):
        if number % prime == 0:
            bitmap |= (1 << i)
    return bitmap

# Пример использования:
number = 45
bitmap_result = get_divisibility_bitmap(number)
print(bitmap_result)  # Выведет: 6 (00000110)

Здесь функция is_prime проверяет, является ли число простым. Затем функция get_divisibility_bitmap создает битовую карту делимости для первых 16 простых чисел и возвращает ее результат в соответствии с заданным числом.

Примечание: В приведенном примере мы рассматриваем только числа, меньшие или равные 53 (последнее простое число из списка). Если вам нужно учитывать большие числа или больше простых чисел, то следует добавить их в список primes.