с Информатикой 9 класс​

1.Файл размером 36 Мбайт передаётся через некоторое соединение за 3 минуты. Определите размер файла (в Мбайт), который можно передать через это же соединение за 240 секунд. ответе укажите одно число — размер файла в Мбайт. 
2.Файл размером 9 Кбайт передаётся через некоторое соединение за 36 секунд. Определите, за сколько секунд можно передать этот же файл через соединение, скорость которого на 1024 бит в секунду больше. 
3. Файл размером 24 Кбайт передаётся через некоторое соединение за 80 секунд. Определите размер файла (в Кбайтах), который можно передать через это же соединение за 2 минуты. В ответе укажите одно число — размер файла в Кбайтах. 
4. Файл размером 2 Мбайта передаётся через некоторое соединение за 16 секунд. Определите время в секундах, за которое можно передать через то же самое соединение файл размером 4096 Кбайт. 
5. Файл размером 80 Кбайт передаётся через некоторое соединение со скоростью 2048 бит в секунду. Определите размер файла (в Кбайт), который можно передать за то же время через другое соединение со скоростью 768 бит в секунду. 

ПИСАТЬ ВСЕ И ДАНО ТОЖЕ РЕШИТЕ

// F#
[<EntryPoint>]
let main argv =
    let rec ( ** ) x n =
        match n < 1 with
        | true -> 1
        | false -> x * (x ** (n-1))
    let rec sumDigits x =
        match x with
        | x when x < 10 -> (x, 1)
        | x ->
            let res = x / 10 |> sumDigits
            ((res |> fst) + (x % 10), (res |> snd) + 1)
    let isArmstrong x =
        let digitsInfo = sumDigits x
        x = (fst digitsInfo) ** (snd digitsInfo)
    let a = System.Console.ReadLine() |> System.Int32.Parse
    let b = System.Console.ReadLine() |> System.Int32.Parse
    let result = [a..b] |> List.filter (isArmstrong)
    printf "Result: %A" result
    System.Console.ReadKey true |> ignore
    0