Сделайте жираф - - - (-2; -14), (-3; -14), (-3, 5; -10), (-3, 5; 0), (-4; 2), (-7; 16, 5), (-8; 16, 5), (-11; 17), (-11; 17, 5), (-9; 18), (-7, 519), (-6, 5; 20), (-6; 19, 5), (-6; 19), (-5; 18), (-4; 13, 5), (0; 5), (6; 3), (8; 0), (6; 2), (7; 0), (8; -5), (9, 5; -14), (8, 5; -14), (7, 5; -8, 5), (4, 5; -3, 5), (0, 5; -3, 5), (-1; -5, 5), (-1, 5; -9), (-2; -14), глаз: (-8; 20) 14

Смотри приложенный внизу рисунок.

Рисуется, расставляя точки по указанным координатам и соединяя их отрезками.

Есть опечатки: вместо (-7,519) очевидно должно быть (-7,5;19), да и глаз должен быть где то на (-7;18,5)

Если и есть ещё опечатки, то по крайней мере форму они особо не искажают.

Так, можем найти общие данные, которые нам в любом случае понадобятся для обоих пунктов:

I = 128 Кбайт = 1048576 бит

x = 640 * 320

Всё, теперь начинаем пункт а):

N = 16

N =

i = 4

Рассчитаем объем одной страницы:

I(1) = x * i = 640 * 320 * 4 = 819200 бит (объем 1 страницы)

Посмотрим сколько страниц влезет:

1048576 / 819200 = 1.28 = 1 страница (округляем в меньшую сторону, так как у нас тупо не хватит места, если мы округлим в большую)

Пункт б):

N = 256

i = 8

I(1) = x * i = 640 * 320 * 8 = 1638400 бит (объём 1 страницы)

1048576 / 1638400 = 0.64 = 0 страниц (опять же, не хватит нашего объема для хранения даже 1 страницы)

// F#
open System
let anyNumberSymbol = "?"
let replaceSymbolOnIndex (str:string) (number:int) (index:int) =
    String.Format("{0}{1}{2}", str.Substring(0, index), number, str.Substring(index+1))
let rec getAllValues (valueStr:string) =
    let index = valueStr.IndexOf(anyNumberSymbol)
    if index > -1
        then
            let newStrings =
                [0..9]
                |> Seq.map (fun x -> replaceSymbolOnIndex valueStr x index)
            newStrings |> Seq.collect (fun x -> getAllValues x)
        else
            [valueStr] |> List.toSeq 
let getResults (numbers:string list) =
     List.nth numbers 0
        |> getAllValues
        |> Seq.map (fun firstNumber ->
              List.nth numbers 1
                |> getAllValues
                |> Seq.map (fun secondNumber ->
                      List.nth numbers 2
                        |> getAllValues
                        |> Seq.map (fun resultNumber ->
                            if Int32.Parse(firstNumber) + Int32.Parse(secondNumber) = Int32.Parse(resultNumber)
                                then [String.Format("{0} + {1} = {2}", firstNumber, secondNumber, resultNumber)]
                                else []
                        )
                        |> Seq.collect (fun x -> x)
                )
                |> Seq.collect (fun x -> x)
        )
        |> Seq.collect (fun x -> x)
        |> Seq.toArray
[<EntryPoint>]
let main argv =
    let inputString = System.Console.ReadLine()
    let numbers = inputString.Split('+', '=') |> Array.map (fun x -> x.Trim())
    if numbers.Length = 3
        then
            let results = getResults (numbers |> Array.toList)
            if results.Length > 0
                then Console.WriteLine(results |> Seq.fold (fun result x -> result + "\n" + x) "")
                else Console.WriteLine("No results")
            Console.ReadKey(true) |> ignore
            0
        else
            1