Последовательности длиной 7, содержащей 5 букв А могут быть следующими: ** (* - любой из символов В или С) *А* ААА*АА* АА*ААА* А** ** (пока 6 вариантов) Далее - аналогично: **А ААА*А*А АА*АА*А А*ААА*А **А (ещё 5 вариантов) ААА**АА АА*А*АА А*АА*АА *ААА*АА (ещё 4 варианта) АА**ААА А*А*ААА *АА*ААА (ещё 3 варианта) А** *А* (ещё 2) ** (ещё 1) Итого: 6+5+4+3+2+1=21 Так как на месте * могут быть любые из 2 символов В или С, то это даст ещё по 4 варианта для каждого случая. Можно здесь, конечно, комбинаторику вспомнить. Итого: 21*4 = 84
1)program fagasg; var x1,y1,r: real; begin Writeln('Введите х1'); readln(x1); Writeln('Введите у1'); readln(y1); r:=sqrt(x1*x1+y1*y1); Writeln('Расстояние от х1 до у1=',r); end. 2)Program fsgasghfd; var c,s: real; a,b: integer; begin Writeln('Введите первое целое число'); readln(a); Writeln('Введите второе целое число'); readln(b); Writeln('Введите дробное число'); readln(c); If ((a>0) and (b>0) and (c>0)) or ((a<0) and (b<0) and (c<0)) then s:=a+b+c else writeln('Знаки разные'); If ((a>0) and (b>0) and (c>0)) or ((a<0) and (b<0) and (c<0)) then Writeln('Сумма чисел:',s); end. 3)Program wrqrwqr; var A: Array[1..100] of integer; B: Array[1..100] of integer; C: Array[1..100] of integer; s,i,h,g: integer; begin h:=0; g:=0; Writeln('введите размерность массива'); readln(s); Writeln('Вводится первый массив'); For i:=1 to s do begin Writeln('Введите элемент массива №',i); readln(A[i]); end; Writeln('Вводится второй массив'); For i:=1 to s do begin Writeln('Введите элемент массива №',i); readln(B[i]); end; For i:=1 to s do begin If A[i]>B[i] then C[i]:=A[i] else C[i]:=B[i]; If C[i] mod 2=1 then h:=h+1; If C[i] mod 2=0 then g:=g+1; end; Writeln('Количество нечётных элементов в массиве:',h); Writeln('Количество чётных элементов в массиве:',g); end.
