1.
I = log(2)65536 = 16 бит
2.
При использовании кодировки Windiws для кодирования одного символа необходимо log(2)256 = 8 бит, при использовании кодировки Unicode для кодирования одного символа необходимо log(2)65536 = 16 бит. Таким образом, объем страницы текста после преобразования увеличится в 16/8 = 2 раза.
3.
Белыми фигурами (с учетом того, что конями ходить запрещено) можно сделать один из 16 ходов (одной из 8 пешек). Количество информации, полученное после сделанного хода = log(2)16 = 4 бита.
Const
N = 33;
Var
A:array[1..N] of real;
i,k:integer;
Begin
Randomize;
k:=0;
For i:= 1 to N do
Begin
if random(2) = 1 then A[i]:=random*N
else A[i]:=0;
Write(A[i]:0:3,' ');
if A[i] = 0 then k:=k+1
End;
WriteLn;
WriteLn('Количество нулей в массиве: ',k);
ReadLn
End.
обозначается знаком * звездочка
1) var a: array[0..10] of integer; i, s: integer;
begin
for i := 1 to 10 do begin
a[i] := random(60);
write(a[i], ' ');
if a[i]<=20 then s:=s+a[i];
end;
writeln;
writeln(s);
<span>end.
2) </span>var a: array[0..10] of integer; i, s: integer;
begin for i := 1 to 10 do begin
a[i] := random(60);
write(a[i], ' ');
// if (i mod 2=1) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди нечетных номеров элементов.
// if (a[i] mod 2=1) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди самих нечетных элементов.
end;
writeln;
writeln(s);
end.
1) Нужно нажать левой кнопкой мыши на стрелку под кнопкой "Выделить"
2) Выбрать прямоугольную или произвольную область.
Если выбрана прямоугольная область:
1) Нажать левой кнопкой мыши в том месте, где должен быть какой-либо угол прямоугольной области;
2) Не отпуская кнопку мыши, перевести мышь в то место, где должен быть противоположный угол;
3) Отпустить кнопку мыши.
Если выбрана произвольная область:
1) Нажать левой кнопкой мыши в том месте, где должно быть какое-либо место на границе произвольной области;
2) Не отпуская кнопку мыши, провести ей по границе произвольной области и замкнуть эту границу;
3) Отпустить кнопку мыши.
3) Нажать правой кнопкой мыши по выделенной области;
4) Выбрать "Копировать";
5) Нажать на любое место, кроме выделенной области правой кнопкой мыши;
6) Выбрать "Вставить".