Var x:real;
begin
x := -4;
while x <= 4 do begin
writeln('x=',x : 2 : 2,' y=', abs(x-2)+abs(x+1) : 2 : 2);
x := x + 0.5;
end;
readln; //задержка ввода
end.
Здесь идёт чередование чётных чисел с нечётными
Так как файлы не приложены, то могу только объяснить, как делать это задание.
1. Открываешь файл "<span>p1.bmp" в Paint'е.
2. Открыв файл, справа открываешь меню и выбираешь пункт "Сохранить как".
3. Внизу есть строка "Тип файла". Нажимаешь на нее и будет выпадающий список (смотри вложение).
4. Выбираешь "</span><span>24-разрядный рисунок".
5. Сохраняешь в нужной папке.
Точно так же делаешь с остальными файлами, только меняешь тип.
Чтобы сравнить объем полученных файлов, жмешь правой кнопкой мыши на любой из них, нажимаешь "Свойства" и записываешь где-нибудь его размер. Так делаешь для всех файлов.
Посчитаешь и сравнишь объемы.
Качество: оцени сам(а), виднее будет.</span><span />
Ответ:
1,69 Мб
Объяснение:
V = K * I, где
V — объем;
K — размер изображения;
I — количество бит на символ.
N = 2^i, где
N — количество цветов.
N = 2^i.
262144 = 2^i.
I = 18 бит.
V = 768*1024*18= 14 155 776 бит = 1769472 байта = 1728 Кб = 1,69 Мб