В одной из кодировок каждый символ кодируется 8 битами. Вова написал текст (в нём нет лишних пробелов): «Заяц, лев, слон, олень, тюлень, носорог, крокодил, аллигатор - дикие животные». Затем он вычеркнул из списка название одного из животных. Заодно он вычеркнул ставшие лишними запятые и пробелы - два пробела не должны идти подряд. При этом размер нового предложения в данной кодировке оказался на 5 байт меньше, чем размер исходного предложения. Напишите в ответе вычеркнутое название животного. В одной из кодировок каждый символ кодируется 8 битами. Вова написал текст (в нём нет лишних пробелов): «Лев, еж, слон, олень, тюлень, носорог, крокодил, аллигатор - дикие животные». Затем он вычеркнул из списка название одного из животных. Заодно он вычеркнул ставшие лишними запятые и пробелы - два пробела не должны идти подряд. При этом размер нового предложения в данной кодировке оказался на 4 байта меньше, чем размер исходного предложения. Напишите в ответе вычеркнутое название животного.
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Описать свойства объекта рабочий стол
Автор: a8227775
1. как программируется на паскале полное и неполное ветвление?
Автор: сергеевич1958
Построить таблицу истинности для следующего логического выражения
Автор: orbbsvsupply
ответ с решением 1 задание сделать надо
Автор: ooo-krasa
K:array[1..2,1..13] of integer;
i,j,ind,x,y:integer;
MAX:real;
function RAST(x1,x2,y1,y2:integer):real;
begin
RAST:=sqrt(sqr(x2-x1)+sqr(y2-y1));
end;
begin
MAX:=-2*sqr(-10-1);
randomize;
writeln('Исходные точки:');
for j:=1 to 13 do
begin
writeln('Точка № ',j,', с координатами(X,Y)');
for i:=1 to 2 do
begin
K[i,j]:=random(110) - 10;
write(K[i,j],' ');
end;
writeln;
end;
for i:=1 to 13 do
if RAST(0,K[1,i],0,K[2,i])>MAX
then
begin
MAX:=RAST(0,K[1,i],0,K[2,i]);
x:=K[1,i];
y:=K[2,i];
ind:=i;
end;
writeln('Номер точки: ',ind,' Координаты: ',x,' ; ',y);
end.