Как я понял, область ограничена четырьмя прямыми (в документе забыли ее заштриховать). Вот программа:
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
var x,y:real;
begin
x:=ReadInteger('Введите координату x ');
y:=ReadInteger('Введите координату y ');
if (y>=-x-2) and (y<=x+2) and (y<=-x+2) and(y>=x-2) then
println('Принадлежит')
else println('Не принадлежит');
end.
Пример 1. <span>Исходный и кодовый алфавиты – те же, что в примере 1. Каждая буква также кодируется своим номером в алфавите, НО номер всегда записывается </span>двумя<span> цифрами: к записи однозначных чисел слева добавляется 0. Например, код А – 01, код Б – 02 и т.д.
</span>Пример 2.<span> Исходный алфавит – алфавит русских букв, строчные и прописные буквы не различаются. Размер алфавита – 33 символа.
</span>
1)2,5 МБ = 16777216 б<span>
5)</span>найдем количество информации в одном символе. Оно равно 7 битlog2(128) = 7 (логарифм от 128 по основанию 2) У нас 800 символов, каждый по 7 бит итого 5600 битВ одном байте 8 бит: 5600/8бит = 700 байт. В 1кбайте 1024 байта (по старой классификации), итого700/1024 = 0.68359375 килобайта<span>ответ: 0.68359375 килобайта
2) </span><em>При алфавитном подходе к измерению количества информации известно, что если мощность алфавита N (количество букв в алфавите), а максимальное количество букв в слове, записанном с помощью этого алфавита – m, то максимально возможное количество слов определяется по формуле L=Nm. Из условия задачи известно количество слов (L=2048) и количество букв в каждом слове (m=2). Надо найти N из получившегося уравнения 2048=N4. Следовательно, N=2.</em>
<em>Ответ: 4 буквы.</em>
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
begin
var a:=ReadInteger;
Println(a>0?a*a:a*a*a*a);
end.
