Question

2. Напишите программу, которая разделяет делители данного числа n
пробелом в строке. Воспользуйтесь процедурой.
Входящие данные
Выходящие данные
6
1 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