2*2=4
????!!!?!!?!!?!!!?!??
<span>* Так как нужно найти количество последовательностей, содержащих ровно 3 буквы А, то отбрасываем А при подсчете:
3 - 1 = 2.
* Остается две буквы: Б и В, которые могут дать следующие последовательности:
ББ
БВ
ВБ
ВВ
Всего 4 последовательности, теперь составим список количества возможных последовательностей, в котором ровном 3 буквы А:
ААА**
АА**А
АА*А*
*</span>АА*<span>А
А**АА
А*А*А
А*АА*
**ААА
*А*АА
*ААА*
* Всего 10 возможных вариантов: 10 * 4 = 40 различных последовательностей, содержащих ровно 3 буквы А.</span>
Var a2,a,c,sym:
integer;
begin
for a:=100 to 200 do begin
a2:=a;
while (a2<>0) do begin
c:=a2 mod 10;
a2:=a2 div 10;
end;
if (a mod 7 = 0 ) and ((c=1) or (c=4)) then sym:=sym+a;
end;
writeln('сумма чисел от sym=',sym);
end.
Канал -а, мышка, тенор-д, логика -а, сервер-в, килобайт -з, графика -е, алфавит -ж