Нет. При алфавитном подходе считается количество элементарных символов, затем умножается на информационный объем каждого символа и в итоге получается объем всего сообщения.
Однако понятно, что одно и то же содержание можно выразить по-разному, с использованием различного количества символов (например, в русском языке можно выразить одно и то же разными словами разной длины). Тогда получится, что одно и то же содержание оценивается различным количеством информации.
#1
program Program1;var rub, dol:real;begin writeln('Введите сумму в рублях:'); readln(rub); dol:=rub/67; writeln('Сумма в доллорах= ',dol); end.
#2
program Program1;var a,b:integer;beginwriteln('Введите целое число:');readln(a);
if a>0 then b:=a-a-a;if a<0 then b:=a;if a=0 then writeln('Чило = 0');writeln('Чило a=',b); end.
Var i:integer;
begin
i:=1;
repeat
writeln(i, i*i:4);
i+=1;
until i=16;
end.