Begin
Writeln(20,' ',25);
Writeln(20); Writeln(25)
end.
VAR I,N,C,KT,SUM:INTEGER;BEGINN:=0;C:=0;KT:=0;FOR I:=50 TO 100 DOBEGIN WRITE (I:3);N:=N+1;IF I MOD 2=0 THEN C:=C+1;IF I MOD 3=0 THEN KT:=KT+1;IF (I MOD 2=0) AND (I MOD 3=0)THEN SUM:=SUM+I;END;WRITELN;WRITELN ('ВСЕГО ', N:2, 'ЧЕТНЫЕ ', C:2, 'КРАТНЫЕ ТРЁМ ',KT:2);WRITELN ('СУММУ ЧИСЕЛ ЧЕТНЫХ И КРАТНЫХ ТРЕМ ', SUM:4);END.
1) что можно сделать с выделенным объектом в данный момент
У вас указана информационная ёмкость картинки, указаны размеры картинки.
4 Кбайта = 4*8 Кбита = 32 Кбита = 2^5 Кбит = 2^15 бит
Точек в картинке
32 * 1024 = 2^5*2^10 = 2^15
И теперь мы видим, что памяти хватит только на чёрно-белую картинку, с глубиной цвета 1 бит на пиксель.
Цветов получается 2 - белый и чёрный. Нет, могут быть и другие, но всё равно их только 2, больше одним битом не закодировать, если не применять алгоритмы сжатия.