Question

2. Напишите программу, которая разделяет делители данного числа n пробелом в строке. Воспользуйтесь процедурой.Входящие данныеВыходящие данные61 2 36​

Answer 1

Язык программирования не указан. Напишу на Haskell.

• import Text.Read ( readMaybe )
• main :: IO ()
• main = do
•  putStr "Введите число: "
•  k <- getInt
•  printList $ divisors k
•  where
•    divisors :: Int -> [Int]
•    divisors x = [y | y <- [1..x], x `mod` y == 0]
•    getInt :: IO Int
•    getInt = unJust . readMaybe <$> getLine
•    unJust :: Maybe a -> a
•    unJust Nothing = error "Incorrect input"
•    unJust (Just x) = x
•    printList :: Show a => [a] -> IO ()
•    printList = putStrLn . unwords . fmap show

Answer 2

Конечно, вот пример программы на языке Python, которая разделяет делители числа n пробелом в строке, используя процедуру:

pythonCopy code
# Процедура для поиска делителей числа и вывода их через пробел
def find_divisors(n):
    divisors = []
    for i in range(1, n + 1):
        if n % i == 0:
            divisors.append(i)
    return divisors

# Ввод числа от пользователя
n = int(input("Введите число: "))

# Вызов процедуры и вывод результата
divisors = find_divisors(n)
print(" ".join(map(str, divisors)))

Когда программа выполнится, она запросит вас ввести число. После ввода числа, программа найдет его делители и выведет их через пробел. Например, если вы введете 61, программа выведет: 1 61.