Первое число в паре -- 9-литровый сосуд
Второе число в паре -- 5-литровый сосуд
0 0 -> 0 5 -> 5 0 -> 5 5 -> 9 1 -> 0 1 -> 1 0 -> 1 5 -> 6 0
Объем сообщения равен 11 Кбайт.сообщение содержит 11264 символов.Какова мощность алфавита?
Ответ: 256
Решение:
дано;
Y = 11 Кбайт
K = 11 264 Символов
Найти: N
1) N = 2i
2) Y = k * i , i = Y / k
Переведем 11 Кбайт в биты, и подставим в формулу:
11 * 1024 * 8 = 90 112 бит
3) 90 112 = 11 264 * i
i = 90 112 / 11 264
i = 8 бит
4) N = 2i
N = 28
N = 256
Const Sz = 100; // Размер массива
var
a: array [1..Sz] of integer;
N: integer; // Количество элементов в массиве
i: integer;
begin
N := 20;
for i:=1 to N do
a[i] := Random(20)-10;
writeln('Элементы массива: ');
for i:=1 to N do
write (a[i],' ');
writeln;
for i:=1 to N do
begin
if (a[i]=0) then
writeln(a[i],' ',i);
end;
end.
Ответ:
Длина между пунктами А и F 9.
Program NoName;
Var vid,i,n,k,max:integer;
sr:real;
a:array[1..9999] of integer;
Begin
mx:=0;
max:=0;
k:=0;
vid:=0;
sr:=0;
Read (n);
For i:=1 to n do
Begin
Writeln(a[i] :3);
max:=a[1];
If a[i] > max then
max:=a[i];
If a[i] < 0 then
Begin
vid:=vid + a[i];
k:=k+1;
End;
End;
sr:=vid / k;
For i:=1 to n do
Begin
If a[i] < max then
Write (a[i])
Else
Write (sr);
End;
End.
Не могу быть уверенным за правильность, нет возможности проверить
