// 8 begin var arr := ArrRandom(10); Sort(arr); arr.Println; Print('Sum = ', arr.Where(x -> x mod 5 = 0).Sum() + newline + 'Count = ', arr.Where(x -> x mod 5 = 0).Count); end.
// 9 begin var arr := ArrRandom(15); arr := arr.OrderByDescending(x -> x).ToArray; arr.Println; Print('array elements squares sum is = ', arr.Sum(x -> x * x)); end.
1. Для кодирования одного из 8 цветов требуется log(2)8 = 3 бита (2^3=8). Память, занимаемая одной фотографией: 512*256*3 бит = 512*256*3 / (8*1024) Кбайт = 48 Кбайт. Две фотографии займут 2*48 = 96 Кбайт
2. Для кодирования одного из 1024 цветов требуется log(2)1024 = 10 бит (2^10=1024). Объем одного изображения = 256*32*10 бит = 256*32*10 / (8*1024) Кбайт = 10 Кбайт. Количество изображений, которые можно прикрепить = 100/10 = 10
3. Глубина цвета = log(2)512 = 9 бит (2^9=512)
4. Количество точек отсканированного изображения = 4*16*64*16. 128 Мбайт = 128*1024 Кбайт = 128*1024*1024 байт = 128*1024*1024*8 бит. Глубина цвета = 128*1024*1024*8 / (4*16*64*16) = 16384 бит (как-то очень много).
предполагаю, что пропущена команда "var", и "uses".
Объяснение:
"var" отвечает за тип переменной, но не помню, можно ли integer,real, string и тд и тп на const заменить
uses отвечает за то, что ты хочешь с этим всем счастьем сделать: graphABC, crt и тд и тп.
ну, и кнчн, операторы заданы, а что с этим сделать? прочитать? (readln) вывести результат(write, writeln)?
странное задание, если честно, очень много чего нет