metade:: Float->Float
metade x = if x < 10 then x/2 else x

parimpar ::Integer->String
parimpar x = if mod x 2 == 0 then "Par" else "Impar"

nota::Float->String
nota x = if x<4 then "E" else if x<6 then "D" else if x<7.5 then "C" else if x<9 then "B" else "A"


ex4::Float->Float->Float->Integer
ex4 a b c = if a > (a+b+c)/3 && b> (a+b+c)/3 && c> (a+b+c)/3 then 3 else if b> (a+b+c)/3 && c> (a+b+c)/3 then 2
 else if a > (a+b+c)/3 && b> (a+b+c)/3 then 2 else if a > (a+b+c)/3 && c> (a+b+c)/3 then 2 else if a > (a+b+c)/3 then 1
 else if b > (a+b+c)/3 then 1 else if c > (a+b+c)/3 then 1 else 0

ex5:: Integer->String
ex5 a = if a>=100 && a<=200 then if mod a 2 == 0 then "Par" else "Impar" else "Nao esta entre 100 e 200"

ex6:: Float->String->Float
ex6 a b = if b == "M" then 72.7*a-58 else if b == "F" then 62.1*a-44.7 else 0

ex7:: Integer-> String
ex7 a = if a>4 then if a<8 then "Infantil A" else if a<11 then "Infantil B" else if a<14 then "Juvenil A" else if a<18 then "Juvenil B" else "Senior" else "Nao pode participar"

ex8:: Double -> Double
ex8 a = if a>0 then 1 else if a<0 then -1 else

--ex9:: String -> Float -> Float -> Float
--ex9 a b c = if a == "*" then b*c else if a == "/" then b/c else "Erro"

ex10:: Char->String
ex10 a = if a=='a' || a=='b' || a=='c' || a=='d' || a=='e' || a=='f' ||a=='g' || a=='h' || a=='i'
 ||a=='j' || a=='k' || a=='l' ||a=='m' || a=='n' || a=='o' ||a=='p' || a=='q' || a=='r' || a=='s'
  || a=='t' || a=='u' ||a=='v' || a=='w' || a=='x' ||a=='y' || a=='z' then "Letra" else if a=='0'
   || a=='1' || a=='2' ||a=='3' || a=='4' || a=='5' ||a=='6' || a=='7' || a=='8' ||a=='9' then "Numero" else "Caractere"