в двоичной системе это число записывается так: 10000. поэтому ответ: 4 нуля.
Var a:array [1..100] of integer;
s,i,k,n:integer;
sr:real;
begin
writeln('n=');
readln(n);
writeln('vvedite massiv=');
for i := 1 to n do
readln(a[i]);
s:=0;
k:=0;
for i := 1 to n do
begin
s:=s+a[i];
sr:=s/n;
end;
for i := 1 to n do
if a[i]>sr then inc(k);
writeln('sr=',sr,' k=',k);
readln;
<span>end.</span>
ответ Б)микрофон!!!!!!!!!!!!!!!!!!!!!!
При использовании 65536 цветов для хранения цвета одного пикселя необходимо log(2)65536 = 16 бит, п<span>ри использовании 16 цветов - log(2)16 = 4 бита. В результате преобразования изображения объем памяти уменьшится в 16/4 = 4 раза.</span>
Var money,n,count:integer;
begin
money:=1;
n:=0;
while money < 100 do
begin
money:= money*2+n;
n:=n+1;
count:=count+1;
end;
writeln(count);
end.<span>
</span>