a156bc
s = 123456
q = abc
delete (s,2,3) = 156
(/// Удаляет из строки s count символов с позиции index
procedure Delete(var s: string; index, count: integer);)
insert (s,q,2) = a156bc
(/// Вставляет подстроку source в строку s с позиции index
procedure Insert(source: string; var s: string; index: integer);)
лестья -яблоня-ствол-ветки-плоды
2^i=N
Используем 3 бит на один символ
3*11*20=660 бит
По сути необходимо выбрать две позиции для красных гирлянд (пара чисел без учёта порядка). Такой выбор осуществляется С²₅ = 10
Var
i,n:integer;
s,p:real;
begin
s:=0; p:=1; n:=3;
for i:=1 to 11 do
begin
s:=s+1/n;
p:=p*1/n;
n:=n+2;
end;
writeln('summa: ',s);
writeln('proizvedenie: ',p);
end.