С подробным объяснением! Поставил максимум (100) баллов!

В одной из кодировок КОИ-8 каждый символ кодируется одним байтом. Дмитрий написал текст (в нем нет лишних пробелов, символы переноса слов не учитываются): Тороид, шар, цилиндр, тетраэдр, конус, додекаэдр – геометрические тела. Ученик вычеркнул из списка название одного из геометрических тел. Заодно он вычеркнул ставшие лишними запятые и пробелы – два пробела не должны идти подряд. После этого, он преобразовал текст в кодировку Unicode, где каждый символ кодируется 16 битами. При этом размер нового предложения, в новой кодировке, оказался на 448 бит больше, чем размер исходного предложения. Напишите в ответе вычеркнутое геометрическое тело (большими буквами).

ТОРОИД

Нам нужно узнать вычеркнутое геометрическое тело, поэтому, для начала, запишем количество символом каждого тела, а также количество символов всего предложения:

Итак, ученик вычеркнул какое-то тело и заодно, ставшие лишними запятые и пробелы. Запятая + пробел --- 2 символа.

Изначально каждый символ весит 1 байт. Так как в нашем предложении мы насчитали 72 символа, то оно будет весить соответственно 72 байта.

Но потом из него вычеркнули X символов, а кодировку преобразовали в 16 битную, то есть теперь один символ весит не 1 байт, а 2 байта - то есть в 2 раза больше. Попробуем посмотреть, сколько весит теперь наша строка: (72 - X) * 2 байта.

В условии говорится, что она оказалась на 448 бит больше, чем исходная. Переведём 448 бит в байты: 448 бит / 8 = 56 байт. Получается:

Итак, мы нашли X - вычеркнутое количество символов - (8). 2 символа ушли на пробел с запятой, поэтому слово будет состоять из 8 - 2 = 6 символов. Возвратившись в начало, где мы писали количество символов для каждого слова, мы видим, что слово, состоящее из 6 символов - это 'Тороид'. В ответ пишем ТОРОИД.

________________________________________

Фухх... Подробнее некуда..) Отметьте как "лучший там корона под ответом должна появится, возможно не сразу), если всё устраивает. Если нет - пишите, поменяю.

2 var  3 s: string;   4 begin  5  readln(s); 6  while  pos('с',s)> 0  do  delete(s,pos('с',s),1); 7writeln(s);   8 end.это точно

файл, правка, вид, вставка, формат, сервис, таблица, окно, справка.