По каналу связи передаются сообщения, содержащие только заглавные русские буквы. Для передачи используется двоичный код, удовлетворяющий условию Фано. Кодовые слова для некоторых букв известны: Б -10. Г-1110, Д-0111. Е - 010. Известно, что для кодирования слова АНАНАС потребовалось 16 двоичных знаков. Какое кодовое слово соответствует букве Н?
Примечание. Условие Фано означает, что ни одно кодовое слово не является началом другого кодового слова Какое кодовое слово соответствует букве Н?
2. Моделирование физических явлений и исследование построенных моделей с компьютеров.
3. Решение задач метеопрогноза.
4. Системы автоматического проектирования, обеспечивающие поддержку работы инженера-конструктора, существенно повышающие производительность его труда и сокращающие сроки разработок.
5. Управление работой отдельных станков (станки с числовым программным управлением), роботы, робототехнические линии, цеха и заводы-автоматы.
6. Получение изображений внутренних частей непрозрачных тел, в том числе в медицине - компьютерная томография, и на производстве - контроль качества, не разрушающий изделий.
7. Системы массового обслуживания и информационно-справочные системы. Например, системы резервирования и продажи железнодорожных и авиабилетов.
8. Обслуживание крупных спортивных мероприятий - мировых и европейских чемпионатов, Олимпийских игр.
9. Базы данных правовой информации (быстрый доступ к нормативным актам, указам и постановлениям правительства, статьям Уголовного и других кодексов), криминалистические базы данных, хранящие сведения о преступниках и т. д.
10. Банковские и биржевые компьютерные системы.
11. Библиографические компьютерные системы.
12. Подготовка различных документов, отчетов и других печатных материалов, рекламное дело.
X1,Y1,X2,Y2,X3,Y3:real;
A,B,C:real;
Begin
Write('X1 = ');ReadLn(X1);
Write('Y1 = ');ReadLn(Y1);
Write('X2 = ');ReadLn(X2);
Write('Y2 = ');ReadLn(Y2);
Write('X3 = ');ReadLn(X3);
Write('Y3 = ');ReadLn(Y3);
A:=sqrt(sqr(X2-X1) + sqr(Y2-Y1) );
B:=sqrt(sqr(X2-X3) + sqr(Y2-Y3) );
C:=sqrt(sqr(X3-X1) + sqr(Y3-Y1) );
if (A<B+C)and(B<A+C)and(C<A+B) then
Begin
WriteLn('Длины сторон равны:');
WriteLn('A = ',A);
WriteLn('B = ',B);
WriteLn('C = ',C);
X1:=(A+B+C)/2;
WriteLn('Площадь треугольника равна ',sqrt(X1*(X1-A)*(X1-B)*(X1-C)))
End
else WriteLn('Треугольник не существует')
End.