Var a:array[1..10] of Integer ;
p,i:integer;
Begin
p:=1;
WriteLn('Массив');
For i:= 1 to 10 do
begin
a[i]:=Random(20)-10;
Write(a[i]:3);
if a[i]<0 then p:=p*a[i];
end;
WriteLn;
WriteLn('Произведение отопительных элементов = ',p)
end.
Индексами помечено, в каком порядке мы должны "собирать" получившееся число.
10 / 8 = 1₁ (2₂)
С шестнадцатеричной системой ничего не надо делать, ведь 10 в ней - это буква A.
<h2>Ответ</h2>
12₈ и A₁₆
Begin
for i: byte := 1 to 19 do ;
end.
PascalABC.NET
1)256*16=4096 изначально бит весил наш документ
2)4096-3072=1024 столько бит удалили из документа
3)1024/16=64 делим количество бит на 16 и получаем кол-во символов которые удалили, оно равно 64, с нашего документа удалили 64 символа
...
if (A == B)
A = B = A + B;
else
A = B = 0;
...