Решить задачи
ТОРОПЛЮЮСЬ В одной из кодировок Unicode каждый символ кодируется 16 битами. Вова написал текст (в нём нет лишних пробелов):
«Ёж, лев, слон, олень, тюлень, носорог, крокодил, аллигатор — дикие животные».
Ученик вычеркнул из списка название одного из животных. Заодно он вычеркнул ставшие лишними запятые и пробелы — два пробела не должны идти подряд.
При этом размер нового предложения в данной кодировке оказался на 16 байт меньше, чем размер исходного предложения. Напишите в ответе вычеркнутое название животного.
2. В одной из кодировок Unicode каждый символ кодируется 16 битами. Петя написал текст (в нём нет лишних пробелов):
«Ель, кедр, сосна, кипарис, лиственница, можжевельник — хвойные растения».
Ученик вычеркнул из списка название одного из растений. Заодно он вычеркнул ставшие лишними запятые и пробелы — два пробела не должны идти подряд.
При этом размер нового предложения в данной кодировке оказался на 26 байт меньше, чем размер исходного предложения. Напишите в ответе вычеркнутое название хвойного растения.
3. Считая, что каждый символ кодируется одним байтом, определите, чему равен информационный объём следующей пословицы. Речь вести — не лапти плести.
4. В кодировке Unicode на каждый символ отводится 2 байта. Определите в этой кодировке информационный объём следующей пословицы. Где родился, там и сгодился.
5. В текстовом режиме экран монитора компьютера обычно разбивается на 25 строк по 80 символов в строке. Определите объём текстовой информации, занимающей весь экран монитора, в кодировке КОИ-8
Входной текстовый файл с числами ч/з один пробел.
(в конце не должно быть пробелов!)
}
const
f_in_name = 'd:\in9.txt';
f_tmp_name = 'd:\tmp.tmp';
var f_in,f_out: text; i, k: integer;
begin
Assign(f_in, f_in_name);
Assign(f_out, f_tmp_name);
Reset(f_in); Rewrite(f_out);
k := 0;
while not Eof(f_in) do begin
Read(f_in, i); k := k + 1;
if k mod 2 <> 0 then Write(f_out, ' ', i);
end;
Close(f_out); Close(f_in);
DeleteFile(f_in_name);
RenameFile(f_tmp_name, f_in_name);
end.