var
x: array of string;
y: string;
begin
readln(y);
x := y.Split(' ');
y := x[0];
foreach w: string in x do
if (y.Length <= w.Length) then
y := w;
writeln(y);
<span>end.</span>
Кхм. У нас было похожее задание. У нас в учебнике в начале параграфа прям так и написано "ключевые слова/определения" и слова, которые описывают всю суть параграфа. Если у вас такого нет, просто спиши слова которые выделены жирным или курсивом в параграфе и вуаля.
1) 50 * 2 байта = 100 байт - длина в кодировке <span>Unicode
2) 8 бит = 1 байт
50 * 1 байт = 50 байт длина сообщения в кодировке КОИ-8
3) 100 - 50 = 50 байт - на столько уменьшилась длина сообщения</span>
Для того что бы одним набором символов можно было писать на любом языке.
В старых кодировках ASCII И ANSI буквы отличные от латинских кодировались по разным правилам, замещая символы псевдографики, из-за малого размера таблицы (всего 256 знаков). Причем, эти кодировки несовместимы.
Юникод же позволяет закодировать до 2 147 483 648 символов.