//PascalABC.NET 3.4.2
begin
var str := readstring('Введите строку:').ToWords;
var ch := readchar('Введите букву:');
str.Where(x -> Pos(LowerCase(ch), LowerCase(x)) = 1).Count.Print;
end.
Т.к. , то вес 1 символа – 8 бит.
Мультимедиа - 11 символов.
8*11=88 бит
Const N = 13;
Var
A:array[1..N] of integer;
i,Min,Max:integer;
Begin
For i:= 1 to N do
Begin
A[i]:=random(N);
Write(A[i],' ')
End;
Max:=A[1];
Min:=A[1];
For i:= 2 to N do
Begin
if Max<A[i] then Max:=A[i];
if Min>A[i] then Min:=A[i];
End;
WriteLn('- данные числа лежат на отрезке, длина которого: ',Max - Min);
End.
Здесь надо знать наизусть формулу
N=2^i i - это вес одного символа , подставляем твоё число по формуле
N=2^8=256 символов; N - Кол.символов в алфавите
Вот таблица
2^0=1
2^1=2
2^2=4
2^3=8
2^4=16
2^5=32
2^6=64
2^7=128
2^8=256