Вычисляем по формулам:
N = 2^b
I = k*b
Где N - мощность алфавита, b - инф. вес символов, k - количество символов
Отсюда,
128 = 2^b
b = 6
12 кб = 98304 бит
98304 = k * 6
k = 16384
Program Numbers_Fib;
Var K, N, A, B, C: integer;
Begin
Writeln {введите номер N искомого числа Фибоначчи};
Readln (N);
A:=1; {первый элемент}
B:=2; {второй элемент}
For k:=3 to N do { цикл выполняется для получения элементов с 3-го по N-ый}
begin
C:=B+A; {новый элемент, с номером k}
A:=B; {элемент с номером k-1 становится k-2-м элементом }
B:=C; {элемент с номером k становится k-1-м элементом }
End;
Writeln {N,‘- ый элемент последовательности равен’, C};
End.
Число
- числовое
месяц
- текстовое
температура
- числовое
<span>осадки
— текстовое
</span>
ветер
— текстовое
<span>
</span>
Первичный
ключ — число + месяц
Левый столбик > правый столбик
1) > 4
2) > 1
3) > 6
4) > 2
5) > 3
6) > 5