Var i,q,a:integer;
begin
for i:=1 to 20 do begin
read(a);
q:=q+a;
end;
writeln(q);
end.
1 символ 1728/864=2 байта
алфавит 32*2=64 байта
Размер изображения 64*64 - значит всего точек в изображении 64*64=4096 точки.
для хранения выделено 512 байт, или 512*8 = 4096 бит
итого: на одну точку приходится 4096/4096 = 1 бит (информации для кодирования цвета одной точки)
по формуле N=2(в степени i), где N - кол-во цветов, а i - кол-во бит информации на точку, получаем, что наше N = 2 (в степени 1) = 2.
Т.е. Ответ 2 цвета
Объяснение:
s=0
for i in range (-12 до +12):
if 2%2 == 0:
s=i+s
print (s)
Код программы:
<em>program</em><em> </em><em>learning</em><em>;</em>
<em>var</em><em> </em><em>a</em><em>,</em><em> </em><em>c</em><em>:</em><em> </em><em>Integer</em><em>;</em>
<em>begin</em>
<em>c</em><em>:</em><em>=</em><em> </em><em>0</em><em>;</em>
<em>readln</em><em>(</em><em>a</em><em>)</em><em>;</em>
<em>while</em><em>(</em><em>a</em><em> </em><em>mod</em><em> </em><em>2</em><em> </em><em>=</em><em> </em><em>0</em><em>)</em>
<em>do</em><em> </em><em>begin</em>
<em>a</em><em>:</em><em>=</em><em> </em><em>a</em><em> </em><em>mod</em><em> </em><em>2</em><em>;</em>
<em>c</em><em>:</em><em>=</em><em> </em><em>c</em><em>+</em><em>1</em><em>;</em>
<em>end</em><em>;</em>
<em>writeln</em><em>(</em><em>c</em><em>)</em><em>;</em>
<em>end</em><em>.</em>