Позволяет найти количество информации которое содержится в выбранной сообщении ( I ) , i - это информационный вес символа, k - это число символов в сообщении
1A3 (16) =1*16²+10*16¹+3*16°=256+160+3=419 (10)
ответ: 419
Program morebrains;
const
n = 12; {Количество элементов массива}
var
F:array[1..n] of integer;
s:string;
i,sum:integer;
begin
s:='**** -=Alphaeus=- ****';
for i:=1 to 22 do begin write(s[i]); sleep(42) end;
{заполняем массив}
writeln;
for i:=1 to n do F[i]:=i*i-5*i-14;
{Ищем сумму положительных}
sum:=0;
for i:=1 to n do
if F[i]>0 then sum:=sum+F[i];
{Выводим сумму}
writeln;
writeln('Сумма положительных элементов равна ',sum);
end.
При переводе числа 10101011 из 2-ной в 10-ую:
171