1024*512=524288 точек всего
1,5Мб = 1536 Кб = 1572864 байт = 12582912 бит
12582912 / 524288 = 24 бита на пиксель
N =
![2^{24}](https://tex.z-dn.net/?f=2%5E%7B24%7D+)
= 16777216 цветов
{ Пример программы для процедуры FloodFill }
<span>Uses Graph,Crt; </span>
<span>Var Gd, Gm : Integer; </span>
<span>Begin </span>
<span>Gd:=Detect; </span>
<span>InitGraph(Gd, Gm, ''); </span>
<span>If GraphResult <> grOk Then Halt(1); </span>
<span>SetColor(GetMaxColor); </span>
<span>Circle(50, 50, 20); </span>
<span>FloodFill(50, 50, GetMaxColor); </span>
<span>Readkey; </span>
<span>CloseGraph; </span>
<span>End. </span>
<span>Procedure FloodFill(X, Y : Integer; Border : Word); </span>
<span>Закрашивает замкнутую область, используя текущие стиль и цвет закраски. </span>
<span>Procedure SetFillStyle(Pattern : Word; Color : Word); </span>
<span>Устанавливает цвет и стиль закраски. </span>
<span>Procedure SetColor(Color : Word) </span>
<span>устанавливает текущий цвет, </span>
1)1<span>462
2)</span>110101<span>100
3)</span>2<span>671
4)</span><span>101000111000
А последний в какой системе надо?
</span>
Объём переданного файла составляет 28800 бит/сек * 1 мин 20 сек = 28800 бит/сек * 80 сек = 2304000 бит
Изображение состоит из 600 * 400 = 240000 пикселей, значит, на 1 пиксель отводилось 2304000/240000 = 9,6 бит
Получилось нецелое количество бит. Это может означать, например, что использовалось какое-то сжатие данных: при кодировании, принятом в школьных задачах, на каждый пиксель отводится одинаковое целое число бит.
Оценить количество цветов в палитре можно по-разному:
– округлить количество бит на пиксель вниз (9 бит), тогда в палитре 2^9 = 512 цветов
– не округлять, в палитре 2^9,6 = 776 цветов
– округлить вверх (10 бит), в палитре 2^10 = 1024 цвета
5)
program gt5;
var n,k:integer;
begin
k:=0;
while n>0 do
begin
n:=n div 10;
k:=k+1;
end;
writeln(k);
end.
3)
program gt3;
var s,i:integer;
begin
s:=0;
for i:=1 to 100 do
begin
if(i mod 2=0)then s:=s+i;
end;
writeln(s);
end.
2)
program gt2;
var k,i:integer;
begin
k:=0;
for i:=11 to 20 do
begin
if(i mod 2=1)then k:=k+1;
end;
writeln(k);
end.
1)
program gt1;
var x,y:real;
begin
x:=-3.1;
while x<1 do
begin
x:=x+0.1;
y:=<span>4*x*x*x-2*x*x+5;
writeln(y);
end;
end.
про 4 я не понял поэтому не смог решит</span>