Растровое изображение орнамента было сохранено в файле p1.bmp как 16-разрядный рисунок (т.е. глубина цвета = 16). Во сколько раз будет меньше информационный объём файла p2.bmp, если в нём это же изображение сохранить как 256-цветный рисунок?
1)194: Пример:4199(Сумма нечетных=19,сумма четных=4.В порядке убывания)"+" 2)1913(Должна быть хотя бы одна цифра четная)"-" 3)1420(Цифры не в порядке убывания.) "-" 4)1118: Нам нужно получить четное число 18: a)Пусть нечетные цифры = 9,9.Но тогда у нас остались четные числа,но мы никак не сможем получить 11. b)Чтобы получить 18 из четных чисел нужно,чтобы числа = 8,8,4(максимум),но тогда мы не сможем получить 11,т.к. максимальная цифра=9.Значит "-" 5)1212 Пример:5766(Сумма четных=12(6+6),сумма нечетных=12(5+7)) "+" 6)205 Нам нужно получить 20: Мы не сможем получить 20 из нечетных чисел,т.к. из нечетных чисел нам нужно получить 5. Максимальные цифры из четных равны=8,8,4.(20). И одна цифра нечетная:5.Пример:8548 "+" 7)420: Пусть нам нужно получить 42,но мы не сможем получить данную сумму,т.к. максимум=36(9,9,9,9) "-" 8)294: Пусть одна из цифра=4,т.е. остальные у нас нечетные.Опять же максимальная сумма=27(9,9,9).Значит "-" 9)55: Должна быть хотя бы одна цифра четная."-" ответ: 3 числа
// Внимание! Если программа не работает, обновите версию!
// Программа №1
begin
var mas:=ArrRandom(20,-99,99); mas.Println;
Writeln('сумму с четным индексом=',mas.Where((v,i)->i mod 2 =0).Sum);
end.
// Программа №2
begin
var n:=readinteger('n=');
var mas:=ArrRandom(n,-99,99); mas.Println;
Writeln('элементы < 5');
mas.Where(t->t<5).Println;
end.
//Программа №3
begin
var n:=readinteger('n=');
var mas:=ArrRandom(n,-99,99); mas.Println;
Write('Сумма=');
mas.Where(t->t mod 10 = 3).Sum.Println;
end.