Есть формула N=2 в степени I
где N = кол-во символов в алфавите, I - кол/во информации (бит) на 1 символ.
1 байт = 8 бит
Значит у тебя 2 в степени 8
<em>2 в степени 8 - это 256, значит твоя кодировка имеет 256 символов. </em>
Var a:array[1..100] of integer;
i,n,max,min:integer;
begin
writeln('Skolko elementov');
readln(n);
for i:=1 to n do begin write('a[',i,']='); read(a[i]); end;
max:=a[1]; min:=a[1];
for i:=1 to n do if a[i]>max then max:=a[i];
for i:=1 to n do if a[i]<min then min:=a[i];
writeln('Max - Min =' ,max-min);
<span>end.</span>
Шахматиста знают и футболист, и тусовщик. Андрей не знает Мишу, значит, Миша - не шахматист [1]. Тусовщика тоже все знают, поэтому Миша - не тусовщик. Значит, Миша - футболист [3]. Шахматист и Миша знакомы, значит, Андрей - не шахматист [4]. Поэтому Шахматист - Саша, а Андрей - тусовщик [5].
Таблица приведена во вложении.