<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadSeqInteger('Вводите:', 15)
.Where(t -> t.InRange(1, 14)).Sum.Println
end.
Ответ:
F10 нажимай если уже все.
Объяснение:
Log(14)/log(2) = 3,8073549220576 ~= 4 бит на один номер
Обьем сообщения = 4 * 10 = 40 бит = 5 байт
1. Определим, сколько всего пикселей (точек, из которых строится изображение) содержится в изображении.
800×400 = 320 000 пикселей
2. Определим, сколько байт требуется для кодирования цвета каждого пикселя
16 бит = 16/8 = 2 байта.
3. Определим необходимый объем памяти для хранения изображения
320 000 × 2 = <u>640 000 байт</u>
Можно перевести в более крупные единицы.
640 000 байт = 640 000 / 1024 = <u>625 Кбайт</u>