Function oddcount(ar:array[1..n;1..m] of integer):integer;
var i,j:integer;
begin
result:=0;
for i:=1 to n do
for j:=1 to m do
begin
if odd(ar[i,j]) then
result:=result+1;
end;
writeln(result);
end;
Вот так как-то.
Вред это то что ребенок ниче неделает сидит в интернете днями иночами портит зрение дети заходят на взрослые сайты родители забывают детях и седят в соц сетях пользат это што дети могут смотреть уроки общатся с друзьями и тд
У вас указана информационная ёмкость картинки, указаны размеры картинки.
4 Кбайта = 4*8 Кбита = 32 Кбита = 2^5 Кбит = 2^15 бит
Точек в картинке
32 * 1024 = 2^5*2^10 = 2^15
И теперь мы видим, что памяти хватит только на чёрно-белую картинку, с глубиной цвета 1 бит на пиксель.
Цветов получается 2 - белый и чёрный. Нет, могут быть и другие, но всё равно их только 2, больше одним битом не закодировать, если не применять алгоритмы сжатия.