4 короля:
в рядах 1,3,5 - нет
в рядах 2,4 - в столбиках2,4
Program chik;
var a:array[1..100]of integer;
n,i,p:integer;
begin
writeln('Введите кол-во элементов');
for i:=1 to n do
begin
read(a[i]);
a[i]:=a[i]+10;
end;
p:=1;
for i:=1 to n do
begin
write(a[i],' ');
if(a[i]>0)then p:=p*a[i];
end;
writeln;
writeln(p,' -произведение пол,чисел 2 массива');
end.
Program;
var a,sum,k:integer;
sr:real;
Begin
sum:=0;
k:=0;
while a<>0 do
begin
read(a);
sum:=sum+a;
k:=k+1;
end;
sr:=sum/k;
writeln(sr);
End.
Для решения используем формулу N = 2^i или i = log(2)N
Для кодирования одного из 2048 символов необходимо log(2)2048 = 11 бит (2^11 = 2048). Для кодирования символа из второй таблицы требуется 11-2 = 9 бит. Количество символов во второй таблице = 2^9 = 512