Ответ:
5 бит
Объяснение:
N=2^i, где N-мощность алфавита(кол-во символов), i -вес 1 символа=> 32=2^5
<em>// PascalABC.NET 3.3, сборка 1600 от 23.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ArrGen(17,i->real(i+1)); s.Println;
(s[10:]+s[9::-1]).Println
end.
<u>Пример</u>
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
11 12 13 14 15 16 17 10 9 8 7 6 5 4 3 2 1
Uses crt;
var mas: array [1..1000] of real;
x,k,o,p:integer;
begin
write('K='); readln(K);
o:=0; p:=0;
for x:=1 to K do
begin
write('mas[',x,']:');
readln(mas[x]);
if mas[x]<0 then inc(o);
if mas[x]>0 then inc(p);
end;
writeln;
writeln('Отрицательных элементов: ',o);
writeln('Положительных элементов: ',p);
end.
Var
s, a, b: string;
i: integer;
begin
readln(s);
a:='Да';
b:='Нет';
while pos(a, s) > 0 do
begin
i:=pos(a, s);
delete(s, i, length(a));
insert(b, s, i);
end;
writeln(s);
<span>end.</span>