Ответ:
71₁₀ = 1*2⁰ + 1*2¹ + 1*2² + 0*2³ + 0*2⁴ + 0*2⁵ + 1*2⁶ = 1000111₂
1000111₂ - три нуля
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var f:=ArrRandom(9,-50,50); f.Println;
var k:=f.Select(t->t*t).ToArray; k.Println
end.
<u>Пример</u>
39 0 28 31 -35 -2 -11 -48 -32
1521 0 784 961 1225 4 121 2304 1024
64 символа можно закодировать 6 битами, т.к. 2^6 = 8*8 = 64.
Ответ. 6 бит.
<span>Ans: 17,179,869,184 бит -> 2^34</span>
uses crt;
var
i, k: integer;
a,k2: real;
mas, ma: array [1..10] of integer;
begin
randomize;
write (' razmer massiva = '); readln (k);
for i:=1 to k do
mas[i]:= random (10);
for i:=1 to k do
write (mas[i],' ');
for i:=1 to k do
if i mod 2<>0 then a:= mas[i]+a;
writeln;
if k mod 2<> 0 then begin k:=k+1; k2:= k/2; end else k2:= k/2;
a:= a/k2;
write ('sredn znach = ',a);
readkey;
end.