fork download
copy 
  1. main :: IO ()
  2. main = do
  3.     putStr "Введите первое число: "
  4.     num1 <- readLn :: IO Int
  5.  
  6.     putStr "Введите второе число: "
  7.     num2 <- readLn :: IO Int
  8.  
  9.     putStrLn $ "Сумма: " ++ show (num1 * num2)
Success #stdin #stdout 0.01s 5256KB
comments (?)
stdin
copy 
2
4
stdout
copy 
Введите первое число: Введите второе число: Сумма: 8
https://ideone.com/W1VOkC
language:
Haskell (ghc 8.4.4)
created:
2 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!