<span>Var
Text, Slovo, max:string;
Begin
WriteLn('Введите строку, разделенную пробелами: '); ReadLn(Tex);
Text:= Text + ' ';
max:='';
While Pos(' ',Text) <> 0 do
Begin
</span>Slovo<span>:= Copy(Text, 1, Pos(' ',Text) - 1);
Delete(Text, 1, Pos(' ',Text));
if Length(</span><span>Slovo</span><span>) > Length(max)
then max:= </span>Slovo<span>;
End;
WriteLn('Самое длинное слово: " ',max,' " его длина ',Length(max));
ReadLn;
End.</span>
Здесь используется кодировка UNICODE, так как сообщение написано кириллицей. Каждый символ UNICODE весит 16 бит, значит сообщение "встреча назначена на лето", в котором 25 символов, включая пробелы весит 16×25=400 бит.
Ответ 18.
Сначала мы умножаем со старым значением и получаем 30. Потом30/5=6 6*3=18