Смотря сколько цветов. Если в Палитре 256 цветов, то 256 * 4 = 1024 бита памяти. Если не так то поправьте меня.
1-я задача:
<span>Я<=Г </span>
<span>Г=15 </span>
<span>Ответ: плодов не более 30 (15 груш и не более 15 яблок) </span>
<span><span>
P=1/4
N=100/4=25
Ответ:25</span></span>
Var
m:integer;
Begin
Write('m = ');
ReadLn(m);
if m>= 4 then m:=m*m-8
else m:=m+2;
WriteLn('C = ',m)
End.