N=16
N=2^i
Отсюда следует, что i=4бит
i=4
k=1000
I=k*I
I=1000*4=4000бит
4000/8=500байт
<em>// PascalABC.NET 3.3, сборка 1600 от 23.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var b:=ReadArrReal(8);
Writeln('Введен массив'); b.Println
end.
<u>Пример</u>
-3.2 0 12 -7 0.003 12.43 3.141593 11
Введен массив
-3.2 0 12 -7 0.003 12.43 3.141593 11
Const
n=5;
type
MyArr=array[1..n] of integer;
var ar:MyArr;
i,maxi,val:integer;
k:real;
function Maxii(ar:MyArr):
integer;
var i,max:integer;
begin;
Max:=-2147483648;
for i:=1 to n do
if ar[i]>max then
begin;
max:=ar[i];
maxii:=i;
end;
end;
function Amp(ar:MyArr):integer;
var i,max,s:integer;
p:real;
begin;
Max:=-2147483648;
for i:=1 to n do
if ar[i]>max then max:=ar[i];
p:=max/100*10;
for i:=1 to n do
if ar[i]>=max-p then inc(s);
Amp:=s;
end;
begin;
for i:=1 to n do
begin;
readln(ar[i]);
k:=k+ar[i];
end;
k:=k/n;
writeln('Средний рост:',k);
maxi:=maxii(ar);
writeln('Самый высокий призывник:',maxi);
val:=Amp(ar);
writeln('4:',val);
<span>end.</span>
3=0011 (первая цифра,
поэтому два нуля, которые стоят сначала числа -незначащие, 3=11)
F=1111
C=1100
5=0101
3FC5=11 1111 1100 0101 -----> 4 (четыре) значащих нуля.