Во всех программах у меня будет использоваться процедура swap:
procedure swap(a: ^real; b: ^real);
var
t: real;
begin
t := a^;
a^ := b^;
b^ := t;
end;
swap(x,y) - меняет местами значения x и y.
1.
var
A: array[1..100] of real;
i, j, N: integer;
begin
readln(N);
for i := 1 to N do
read(A[i]);
for j := 1 to (N div 2) - 1 do
for i := 1 to (N div 2) - j do
swap(A[i], A[i + 1]);
for j := 1 to (N div 2) - 1 do
for i := (N div 2) + 1 to N - j do
swap(A[i], A[i + 1]);
for i := 1 to N do
writeln(A[i])
end.
2.
var
A: array[1..100] of real;
i, N: integer;
begin
readln(N);
for i := 1 to N do
read(A[i]);
for i := 1 to N - 1 do
swap(A[i], A[i + 1]);
for i := 1 to N do
writeln(A[i])
end.
3.
var
A: array[1..100] of real;
i, N: integer;
begin
readln(N);
for i := 1 to N do
read(A[i]);
for i := N downto 2 do
swap(A[i], A[i - 1]);
for i := 1 to N do
writeln(A[i])
end.
Плотоядных 256/4=64
Информационная ёмкость в сообщении о находке плотоядного по формуле Шеннона
i=-log(p)/log(2) = -log(1/4)/log(2) = log(4)/log(2)=2
Сообщение о находке вампира весит в информационном смысле в тра раза больше, или 6 бит. Снова подставим в формулу Шеннона, для определения вероятности находки вампира
6 = -log(p)/log(2)
-6log(2)=log(p)
log(2^-6)=log(p)
p = 1/2^6 = 1/64
А всего вампиров было
256*p = 256/64 = 4
Травоядные - это остаток
256-64-4 = 188
Да, могут! если у них расширения разные
Так же, как и целое число - представляя дробь в расширенной записи, только теперь показатели степени будут отрицательными: