То что скидывала Даша / lab3

Задание 1

> task11 :: Int -> Int
> task11 x =
>	let t = x `rem` 10
>	in (t * 100) + ((x - t) `div` 10)

> task12 :: Int -> Int
> task12 n =
>	let t = n `rem` 100
>	in (t * 10) + (n `div` 100)

Задание 2

> task2 :: Int -> Int -> (Int, Int)
> task2 a b =
>	(if abs a > abs b then a `div` 2 else a,
>	b)