entsaida.hs.txt
-
Upload
thais-melo -
Category
Documents
-
view
212 -
download
0
Transcript of entsaida.hs.txt
import Random-- Funo para ler um nmero e retorn-loleInt :: IO (Int)leInt = do putStr "Digite um valor inteiro: " readLn-- Ler dois nmeros e imprimir o MDCmenumdc = do putStrLn "a ?" a Integermdc a 0 = amdc a b = mdc b (mod a b)-- Ler um nmero e imprimir a lista de 0 a nlista::IO ()lista = do y