uses crt; Var a,x1,x2:integer; Begin x1:=1; x2:=0; readln(a); While a<300 do Begin if (a mod 2<>0) then x1:=x1*a; if (a<0) then x2:=x2+1; readln(a); end; Writeln('Произведение нечётных чисел=', x1); Writeln('Кол-во отрицательных чисел=' , x2); readln; end.
Один пиксель кодируется цепочкой из 24 нулей, это значит, что этот пиксель кодируется 24 битами. Ещё это значит что цветовая глубина (обозначается буквой i) пикселя равна 24 битам. Чтобы найти сколько битов (объём памяти) в этом разрешении надо просто перемножить все значения: высоту (px) * ширину (px) * i = 4608 * 2800 * 24 = 309657600 бит. Или это 37800 килобайт.