Алфавит состоит из 1000 букв. какое количество информации несет одна буква этого алфавита?

2)program 2; var k: integer;       tmp: real;       b: string;       c: string;       i: integer; begin           k: =0; i: =0; tmp: =0;           write('введите k: ');         read(k);         repeat                     tmp: =exp(i*ln(10));                     str(tmp: 0: 0, c);                     b: =b+c;                     i: =i+1;         until length(b) > = k;         c: =copy(b, k, 1);           writeln(b);         writeln('k-я цифра: ', c);         readln(k); end.

Var   m: array [1 .. 16] of integer;   i: integer; begin           for i : = 1 to 16 do           begin               randomize;               m[i] : = random(31) + 30;           end;           writeln('вот ваш массив');           for i : = 1 to 16 do               writeln('m[', i, ']=', m[i], ' ');               readln;     end.