Denis2008111
22.06.2022 04:46

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
oforange
03.08.2020 16:04

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.


Написать процедуру (функцию), которая определяет делимость числа на первые чисел. Делимость на каждо
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота