Собственно,
формула:
I = K*i ,
где I – количество информации в текстовом сообщении (информационный объем текста) ,
K – количество символов в текстовом сообщении,
i – информационный вес одного символа
исходя из формулы:
N = 2^i ,
где N – мощность алфавита,
i – информационный вес одного символа
находим, что мощность 1 алфавита = 16 = 2^4
мощность второго = 256=2^8
соответственно, количество инф в первом случае K*4, а во втором, К*8.
<span>Итого, количество информации во втором тексте больше в 2 раза. </span>
Он. Не чем не отличаются просто где или что то будет разное
var
i,k,l:integer;
s:string;
begin
readln(s);
k:=0;
i:=1;
while i<length(s) do
begin
l:=0;
while (s[i]<>' ') and (i<length(s)) do
begin
l:=l+1;
i:=i+1;
end;
i:=i+1;
if l>k then k:=l;
end;
writeln(k);
end.
Program p1;
uses crt;
var s1,s2,s3:string;
a:integer;
begin
read(s1);
a:= Pos(' ',s1);
s2:=Copy(s1,1,a-1);
Delete(s1,1,a);
s3:=s1+' ' +s2;
write(s3);
end.
Проверь так ?
Линз в колонках нет и быть не может. Линзы используются только в оптических приборах, например в проекторах