// PascalABC.NET 3.1, сборка 1214 от 09.04.2016 function f(x:real):=3+x*(4+x*(5+x*6));
begin var a:=-1.0; var b:=0.0; var eps:=1e-6; var fa:=f(a); var x,fx:real; if abs(fa)<=eps then Writeln('x=',a,',y=',fa) else begin var fb:=f(b); if abs(fb)<=eps then Writeln('x=',b,',y=',fb) else if fa*fb>0 then Writeln('На указанном интервале корней нет') else repeat x:=(a + b)/2; fx:=f(x); if abs(fx)<=eps then Writeln('x=', x, ', y=', fx) else if fa*fx>0 then a:=x else b:=x; until abs(fx)<=eps end end.
Результат выполнения программы: x=-0.790308952331543, y=-6.74849237825015E-07
Последовательности длиной 7, содержащей 5 букв А могут быть следующими: ** (* - любой из символов В или С) *А* ААА*АА* АА*ААА* А** ** (пока 6 вариантов) Далее - аналогично: **А ААА*А*А АА*АА*А А*ААА*А **А (ещё 5 вариантов) ААА**АА АА*А*АА А*АА*АА *ААА*АА (ещё 4 варианта) АА**ААА А*А*ААА *АА*ААА (ещё 3 варианта) А** *А* (ещё 2) ** (ещё 1) Итого: 6+5+4+3+2+1=21 Так как на месте * могут быть любые из 2 символов В или С, то это даст ещё по 4 варианта для каждого случая. Можно здесь, конечно, комбинаторику вспомнить. Итого: 21*4 = 84
1 a,b,c
2 b
3 c
4 a
5 a
6 a
7 b
8 b