Язык указан не был, приведу пример на 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, и если они кратны числу с, выводит их на экран.
Программа написана без обработки ошибок, поэтому за правильностью ввода данных должен следить сам пользователь.
Результат работы программы - на скриншоте.
begin
writeln ('Введите температуру воздуха');
readln (x);
if x<0 then writeln ('Дождь')
else writeln ('Снег");
end.