PascalABC.NET 3.7:
##var sumOfAP := function(a1, an, d: real):real → (a1 + an)/2*((an - a1)/d+1);var (a, b) := ReadInteger2('Введите a и b:');var sE := sumOfAP(a + a mod 2, b - b mod 2, 2);var sO := sumOfAP(a + 1 - a mod 2, b - 1 + b mod 2, 2);Print('Результат:', sE - sO)Пояснение:
Используется формула для нахождения суммы первых n членов арифметической прогрессии: 
, где 
— первый член прогрессии, 
— последний член, 
—разность прогрессии.
1. В цветовой модели RGB для кодирования одного пикселя используется 3 байта. Фотографию размером 2048x1536 пикселей сохранили в виде несжатого файла с использованием RGB-кодирования. Определите размер получившегося файла.
Дано: Решение:
х*у=2048*1536 V= x*y*i=2048*1536*3байта= 9437184 байта=9216 Кбайт = 9 Мбайт
i=3 байта
V – ?
2. Для хранения растрового изображения размером 128*128 пикселей отвели 4 килобайта памяти. Каково максимально возможное число цветов в палитре изображения?
Решение: i=V/x*y=4*1024*8/(128*128)=2 N=4
3. Укажите минимальный объем памяти (в килобайтах), достаточный для хранения любого растрового изображения размером 64*64 пикселя, если известно, что в изображении используется палитра из 256 цветов. Саму палитру хранить не нужно.
V= 64*64*8=32768 бит = 4096 байт = 4 Кбайт
ответ: 4 Кбайт
4. Для хранения растрового изображения размером 64*64 пикселя отвели 512 байтов памяти. Каково максимально возможное число цветов в палитре изображения?
Дано: Решение:
х*у= 64*64 V=x*y*i; i=V/(x*y)=512*8 бит/(64*64)= 4096 бит/4096=1бит
V= 512 байтов N=2i =2
Объяснение:
