Var
i,min:integer;
m:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
readln(m[i]);
if i=1 then min:=m[i];
if m[i]<min then min:=m[i];
end;
for i:=1 to 10 do
begin
if m[i]=0 then m[i]:=min;
write(m[i],' ');
end;
<span>end.</span>
Log2(16) = 4 бит
log2(2) = 1 бит
4/1 = 4 раза
21 кбайт * 4 раза = 84 кбайт был размер у того
№1
2^3=8 т.е. 3 бита на 1 точку
после п<span>реобразования 1 точка стала занимать 6 бит
2^6=64 т.е. 64 цвета
№2
</span>ГДЕЖЕБЕГ=1000100110101011101011010101000
=<span>10465353250</span>
1.один мальчик высаживается и вместо него содится один солдат, они переправляются через реку и солдат высаживается на другом берегу, мальчик возращается на другой берег подберает последнего солдата и перевозит его на другой берег, там солдат высаживается и мальчик возвращается к своему другу.