Существует формула, которая связывает между собой количество возможных информационных сообщений N и количество информации I, которое несет полученное сообщение:
N = 2 в степени I, следовательно
8 = 2 в степени 3, следовательно 3 - количество информации которое несёт одна буква этого алфавита.
Если масив заполнить нужно рандомно:
program wk;
var i,s:integer;mas:array [1..10] of integer;
begin
s:=0;
for i:=1 to 10 do
begin
mas[i]:=random(21)-20;
if mas[i] mod 2=0 then s:=s+mas[i];
end;
writeln('S=',s)
end.
Если масив заполняется с клавиатуры:
program wk;
var i,s:integer;mas:array [1..10] of integer;
begin
s:=0;
for i:=1 to 10 do
begin
readln(mas[i]);
if (mas[i] mod 2)=0 then s:=s+mas[i];
end;
writeln('S=',s)
end.
Uses Crt;
var
x,y:real;
begin
Write('Vvedite x,y: ');
Read(x,y);
Writeln((x>1) and (x<7) and (y>6) and (y<8) or
(x>3) and (x<5) and (y>2) and (y<6));
ReadKey
end.
1)64×32=2048(символов) на одной странице;
2)1 байт = 8 битов = 1 символ
3)2048×16=32768(байтов)
Ответ: Текст весит 32768 байтов.
3
1) взвешиваем по 4
Если = , то взвешиваем 2 оставшиеся и определяем
Если <>
2) взвешиваем по 2 из кучки легких
3) взвешиваем по 1 из кучки легких и находим