Нет. При алфавитном подходе считается количество элементарных символов, затем умножается на информационный объем каждого символа и в итоге получается объем всего сообщения.
Однако понятно, что одно и то же содержание можно выразить по-разному, с использованием различного количества символов (например, в русском языке можно выразить одно и то же разными словами разной длины). Тогда получится, что одно и то же содержание оценивается различным количеством информации.
Var x,y:longint;
Begin
Readln(x);
Y:=y-2*x;
Writeln(y);
End.
Var t,n,m,s:integer;
begin
write('t (1,2,3) = ');
readln(t);
writeln('n, m:');
readln(n,m);
case t of
1: begin s:=25*n+70*m; writeln('Утренняя выручка = ',s); end;
2: begin s:=50*n+100*m; writeln('Дневная выручка = ',s); end;
3: begin s:=70*n+100*m; writeln('Вечерняя выручка = ',s); end;
else writeln('Ошибка ввода');
end;
end.
Пример:
t (1,2,3) = 1
n, m:
10 5
Утренняя выручка = 600
Не ясно какие именно операции можно использовать. Тут хорошо подойдет Исключающие Или, строгая дизьюнкция, бинарное сложение по модулю 2 (плюсик в кружечке), Xor
Если в обычных операндах дизъюннкции(or) и конъюнкции(and) , то будет так
(not (x>10) and (y>10)) or ((x>10) and not(y>10))
Думаю, что эта программа подойдёт:
var count,i,n,min,book: Integer;
a: array[0..100] of Integer;
begin
min:=1000;
writeln('Введите кол-во учебников');
readln(count);
dec(count);
for i:=0 to count do
begin
writeln('Введите кол-во заданий в ',i+1,' учебнике');
readln(n);
a[i]:=n;
end;
for i:=0 to count do
begin
if a[i]<min then
begin
min:=a[i];
book:=i+1;
end;
end;
writeln('Номер учебника, в котором находится наименьшее кол-во заданий: ',book);
end.