В последовательности длиной 5 возможны следующие способы расположения буквы О (* - любая из букв К или Т):
ОО***
О*О***
О**О*
О***О
*ОО**
*О*О*
*О**О
**ОО*
**О*О
***ОО
Всего 10 способов. В каждом из низ существует 2^3 = 8 вариантов записи букв К и Т на трёх оставшихся позициях (ККК, ККТ, КТК, КТТ, ТКК, ТКТ, ТТК, ТТТ).
Таким образом, общее количество последовательностей = 10*8 = 80
"Беларусь - край озер, <span>лесов </span>и рек"
11 букв = 11 байт = 88 бит. Это при 8-битной кодировке типа ASCII или ANSI.
Или 88*2 = 176 бит при 16-битной кодировке Unicode.
3) var a:array [1..1000] of longint; n,k,i:integer;
<span>begin </span>
<span>readln(n); k:=0;</span>
for i:=1 to n do
read (a[i]);
for i:=1 to n do
<span>if (a[i]>5) and (a[i]<19) then k:=k+a[i];
writeln(k);
readln; end.</span>
var
a, b: integer;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
var x := Range(a, b);
var y:=(x.Where(x -> (x>=10) and (x<=99)));
writeln('Двузначные числа от A до B: ');
y.Println;
writeln('Двузначные числа, которые делятся на 15: ');
y.Where(x -> (x mod 15)=0).Println;
end.