toInts :: [String] -> [Int]toInts = fmap readmodify :: Int -> Intmodify x | x < 0 = x * (-5) | otherwise = x * 4main :: IO ()main= do putStrLn "Enter numbers separated by newlines:" x <- toInts <$> mapM (const getLine) [1..2] putStrLn $ "Answer is " ++ show (modify $ product x)
Переменная x получат список из 2 чисел, введенных со стандартного ввода. Затем находится произведение этих чисел и прогоняется через функцию modify. Эта функция принимает на вход число и, если оно отрицательное, домножает его на -5, иначе домножает на 4, результат возвращает. Затем отображаем полученный результат в консоли.
Программа запрашивает у пользователя три числа а, b, c. Затем, с цикла она перебирает все числа от меньшего a до большего b, и если они кратны числу с, выводит их на экран.
Программа написана без обработки ошибок, поэтому за правильностью ввода данных должен следить сам пользователь.
Язык указан не был, приведу пример на Haskell
toInts :: [String] -> [Int]toInts = fmap readmodify :: Int -> Intmodify x | x < 0 = x * (-5) | otherwise = x * 4main :: IO ()main= do putStrLn "Enter numbers separated by newlines:" x <- toInts <$> mapM (const getLine) [1..2] putStrLn $ "Answer is " ++ show (modify $ product x)Переменная x получат список из 2 чисел, введенных со стандартного ввода. Затем находится произведение этих чисел и прогоняется через функцию modify. Эта функция принимает на вход число и, если оно отрицательное, домножает его на -5, иначе домножает на 4, результат возвращает. Затем отображаем полученный результат в консоли.
Программа на языке Python:
#! /usr/bin/env python3
#! encoding: utf-8
a = int( input('a: ' ) )
b = int( input('b: ' ) )
c = int( input('c: ' ) )
for i in range(a, b+1):
if i % c == 0:
print(i, end=' ')
print()
Объяснение:
Программа запрашивает у пользователя три числа а, b, c. Затем, с цикла она перебирает все числа от меньшего a до большего b, и если они кратны числу с, выводит их на экран.
Программа написана без обработки ошибок, поэтому за правильностью ввода данных должен следить сам пользователь.
Результат работы программы - на скриншоте.