1) Определяем общее количество бит: 16 х 640 х 480 = 4 915 200 С учетом того, что в байте 8 бит, а 1 КБ=1024 Б получим 4 915 200 / 8 / 1024 = 600 (КБ)
2) Определяем общее количество бит с учетом того, что в палитре True Color для цвета отводится 24 бита: 1600 х 1200 х 24 = 46 080 000 (бит). После преобразования файла для Интернет он будет представлен в восьмибитной палитре ( 256 = 2⁸ ) и займет объем 1400 х 900 х 256 = 10 080 000 (бит). Разница в объемах составит 46 080 000 - 10 080 000 = 36 000 000 бит. С учетом того, что в байте 8 бит, а в мегабайте 1024 х 1024 байт получим, что пространство на диске сократиться на 36 000 000 / (8 х 1024 х 1024) ≈ 4.29 (МБ)
prod:real;
begin
prod:=1;
for i:=3 to 100 do
if odd(i) then
prod:=prod*i;
writeln('1). Произведение первых 100 нечетных натуральных чисел');
writeln(prod);
writeln();
prod:=0;
for i:=2 to 20 do
if not odd(i) then
prod:=prod + i * i;
writeln('2). Сумма квадратов всех четных чисел от 2 до 20');
writeln(prod);
writeln();
end.