Решаем задачу по формуле N = 2i
N- мощность алфавита
i - вес одного символа (в битах)
N = 16, следовательно i = 4 (16 = 24)
N = 256, следовательно i = 8 (256 = 28)
Ответ: в 2 раза
<em>1.Краткая запись</em>
<em>2.Решение</em>
<em>3.Ответ</em>
Дано:
K=128*128
N=256
----
I - ?
---- Решение -----
Найдем i, тк N = 2^i, тк N=256, то i = 8 <=> 2^3
I = K * i
I= 128*128*8...
Упростим решение, запишем как:
I=2^7 * 2^7 * 2^3 = 2^17 - количество бит. НО! Нам надо в КБ, тогда
I(кб) = I(бит)/2^13 = 2^4 = 16 Кб
Var
S:string;
C:char;
i:integer;
Begin
Write('Введите строку: ');
ReadLn(S);
Write('Введите символ: ');
ReadLn(C);
For i:= 1 to S.Length do
if S[i] = C then
Write(i,' ')
End.
Пример:
Введите строку: Дана строка символов. Определить длину строки. Если длина строки <=20, то найти в строке порядковый номер символа *
Введите символ: а
2 4 11 57 76 113