<span>256 цветов это глубина цвета 8 бит (т. е. 2 в степени 8)=1 байт; 10*10=100 точек; 100*1=100 байт. Ответ: 100 байт. </span>
<span><span>var q:integer;</span><span> i,j:integer;</span>begin<span> writeln('введите площадь');</span><span> readln(q);</span><span> for i:=1 to q do</span><span> for j:=i to q div i do</span><span> if i*j=q then writeln('длина: ',j:6,' ширина: ',i)</span><span>end<span>.</span></span></span>
var
timeInSec:integer; // время в секундах
color, s, m, h:byte;
begin
h := 4; //часы
m := 5; //минуты
s := 23; //секунды
timeInSec := h * 3600 + m * 60 + s; //перевод времени в секунды
color := (timeInSec div 10) mod 3; {целочисленно делим на 10, чтобы узнать сколько раз светофор изменил цвет}
{потом находим остаток деления на 3(количество цветов), чтобы узнать какой сейчас цвет}
case color of //вывод ответа
0: writeln('Горит зеленый свет'); //0 - это зеленый свет
1: writeln('Горит желтый свет'); //1 - это желтый свет
2: writeln('Горит красный свет'); //2 - это крсный свет
end;
end.