1/ алфавит источника сообщений {а, б,в}. источник сообщений посылает нам слова.
а) сколько трит информации содержится в слове «», полученном из источника сообщений?
б) сколько трит информации содержится в слове «бааб», полученном из источника сообщений?
в) сколько трит информации содержится в слове из четырёх символов, полученных из источника сообщений?
г) сколько бит информации содержится в слове «вбаа», полученном из источника сообщений?
д) в каком случае а) или г) мы получили большее количество информации?
2. какой длины должно быть сообщение в алфавите {а, б,в, г}, содержащее 16 бит информации?

program xxx; var i, j, k, n, p, s : integer;       a : array [1..20] of integer; begin  write ('введите количество инверсий -');   readln(k);   write ('введите количество ламп -');   readln(n);   for i: =1 to n do      a[i]: =0;   for i: =1 to k do      begin          write ('введите инверсию p-');           readln(p);           j: =p;           while j< =n do              begin                  if a[j]=0 then a[j]: =1 else a[j]: =0;                   j: =j+p              end      end;   s: =0;   for i: =1 to n do      if a[i]=1 then s: =s+1;   write ('ламп горит -', s);   readlnend.

импликация  — бинарная логическая связка, по своему применению приближенная к союзам «если… то…».

импликация записывается как посылкаследствие; применяются также стрелки другой формы и направленные в другую сторону (остриё всегда указывает на следствие).

суждение, выражаемое импликацией, выражается также следующими способами:

var

a: integer;

begin

readln(n);

writeln('сумма цифр числа ',a,' равна', a div 100+(a mod 100) div 10 +a mod 10);

end.

var

a: integer;

begin

readln(n);

writeln((a mod 10)*100+((a mod 100) div 10)*10 +a div 100);

end.

ну вроде "алгоритм" переходит в "терминал", хотя по буквам не получается - только последние 5 нормально встают и то, если в алфавите нет ё и й