Если число четное, то возвести в квадрат, если нечетное - умножить на 2

@Encrypted1010 · Регистрация: 22.12.2017

Author24 — интернет-сервис помощи студентам

Приветствую всех. Нужна помощь. Задача такая: Вводим число и проверяем, если оно четное, то возводим в квадрат, если нечетное - умножаем на два и выводим результат.
Сделал следующее, но не понимаю как сделать вывод:

Haskell

import System.IO
main = do
       putStr "x="
       hFlush stdout
       x <- getLine
       if x `mod` 2 == 0 Then
       putStrLn $ show $ (read x :: Int) * (read x :: Int)

Буду очень благодарен, если поможете поправить.

@Curry · 13.11.2018, 19:04

Haskell

import System.IO
    
main :: IO ()
main = do
       putStr "x="
       hFlush stdout
       x <- readLn :: IO Int
       print (if even x then 
                    x*x
              else  x*2)

	13.11.2018, 19:04

Если число четное, то возвести в квадрат, если нечетное - умножить на 2

Решение