// PascalABC.NET 3.3, сборка 1627 от 27.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var n:=4; var xp:=new real[n]; var yp:=new real[n]; Writeln('Введите парами координаты четырех вершин'); for var i:=0 to n-1 do Read(xp[i],yp[i]); var (x,y):=ReadReal2('Введите координаты точки:'); var (i,j,c):=(0,n-1,False); while i<n do begin if ((yp[i]<=y) and (y<yp[j]) or (yp[j]<=y) and (y<yp [i])) and (x<(xp[j]-xp[i])*(y-yp[i])/(yp[j]-yp[i])+xp[i]) then c:=not c; j:=i; i+=1; end; if c then Writeln('Внутри') else Writeln('Не внутри') end.
Посчитаем сколько символов в сообщении: На странице 25 строк, в каждой из которых по 60 символов. Следовательно, на одной странице находится 25 х 60 = 1500 символов. Всего в сообщении 3 страницы, поэтому весь текст состоит из 1500 х 3 = 4500 символов. Определим сколько бит в исходном тексте. 1 байт = 8 бит, следовательно, 1125 байт = 9000 бит. В тексте, занимающем 9000 бит 4500 символов, следовательно, на 1 символ приходится 9000 : 4500 = 2 бита. При х битного бинарного кода можно закодировать 2 ^ 2 = 4 комбинации. ответ: в искомом алфавите 4 символа.
10 / 2 = 5 остаток 0
5 / 2 = 2 остаток 1
2 / 2 = 1 остаток 0
собираем последний результат и остатки в обратном порядке - получаем 1010