1)для передачи по каналу сообщения состоящего только из букв а, б, в, г, решили использовать неравномерный по длине код: а=00, б=11, в=100. как нужно закодировать букву г чтобы длина кода была минимальной и допускалось однозначное разбиение кодированного сообщения на буквы? 1)010 2)0 3)01 4)011 2)для передачи по каналу сообщения состоящего только из букв а, б, в, г, решили использовать неравномерный по длине код: а=1, б=000, в=001. как нужно закодировать букву г чтобы длина кода была минимальной и допускалось однозначное разбиение кодированного сообщения на буквы? 1)00 2)01 3)11 4)010

Нужно ее повернуть и разбить на 180 градусов

Прикладная программа или приложение — программа, предназначенная для выполнения определенных задач и рассчитанная на непосредственное взаимодействие с пользователем. В большинстве операционных систем прикладные программы не могут обращаться к ресурсам компьютера напрямую, а взаимодействуют с оборудованием и прочим посредством операционной системы. Также на простом языке — вс программы.Прикладное ПО предназначено для решения конкретны задач в конкретных предметных областях. Оно подразделяется на:· общее;· специальное.К общему прикладному ПО следует отнести;· текстовые редакторы (например, Word);· табличные процессоры (например, Excel);· системы управления базами данных (например, Access) и т.п.К специальному прикладному ПО можно отнести:· автоматизированные банковские системы;· автоматизированные библиотечные системы;· банк правовых документов ГАРАНТ и т.п.

Const
  n=7;

type
  V=array[1..n] of real;
 
procedure InitMas(var a:V; fn:string);
{ инициализция массива из файла }
var
  i:integer;
  f:Text;
begin
  Assign(f,fn);
  Reset(f);
  for i:=1 to n do
    if not Eof(f) then Read(f,a[i]) else a[i]:=0;
  Close(f)
end;

procedure MyProc(var a:V; t:real; var k:integer);
{ замена значением t элементов массива, меньших t }
var
  i:integer;
begin
  k:=0;
  for i:=1 to n do
    if a[i]<t then begin a[i]:=t; Inc(k) end
end;

procedure OutMas(var a:V; an:string);
{ вывод элементов массива }
var
  i:integer;
begin
  Writeln('Массив '+an);
  for i:=1 to n do Write(a[i],' ');
  Writeln
end;

procedure Work(var a:V; fn,an:string; t:real; var k:integer);
{ полный цикл обработки массива по заданию }
begin
  InitMas(a,fn);
  MyProc(a,t,k)
end;

var
  P,C:V;
  k1,k2:integer;
  t:real;
begin
  Writeln('Введите значение T: '); Read(t);
  Work(P,'p.dat','P',t,k1);
  Work(C,'c.dat','C',t,k2);
  if k1=k2 then Writeln('Число замен равно ',k1)
  else
    if k1>k2 then OutMas(P,'P') else OutMas(C,'C')
end.

Тестовое решение:
Введите значение T:
0.005
Массив P
0.005 1.54 0.005 0.005 0.005 1.2 0.005