1) 15 Кбайт
2) 7 или 6 (см. объяснения)
Объяснение:
1)
V = K * i, где
V - это информационный объём текстового сообщения (размер файла, содержащего сообщение)
K - количество символов в сообщении
i - информационный вес одного символа (число бит, используемых для записи одного символа)
Дано:
К = 16 страниц x 30 строк x 32 символа = 15 360 символов
i = 8 бит
Найти:
V
V = K * i = 15 360 * 8 = 122 880 бит
V = 122 880 бит = 122 880 / 8 = 15 360 байт = 15 360 / 1024 = 15 Кбайт
2)
Очень странная таблица (смотри картинку). Не совпадают цифры в расстояниях между CD-DC и CF-FC.
Построим граф по данным таблицы (смотри картинку).
Если мы возьмём значения CD-DC = 2 и CF-FC = 4 (чёрные цифры на картинке), то самым коротким путём будет ACEF = 4 + 2 + 1 = 7
Если мы возьмём значения CD-DC = 4 и CF-FC = 2 (красные цифры на картинке), то самым коротким путём будет ACF = 4 + 2 = 6
// PascalABC.NET 3.1, сборка 1211 от 31.03.2016
begin
var s:=ReadlnString('Исходная строка:');
Writeln('Результат: ',s.MatchValues('[a-zA-ZА-Яа-яёЁ]').JoinIntoString(''));
end.
Тестовое решение:
Исходная строка: // PascalABC.NET 3.1, сборка 1211 от 31.03.2016
Результат: PascalABCNETсборкаот
2. Программа в "школьной версии"
// PascalABC.NET 3.1, сборка 1211 от 31.03.2016
const
legal=['A'..'Z','a'..'z','А'..'Я','а'..'я','Ё','ё'];
var
s:string;
i:integer;
begin
Write('Исходная строка: '); Readln(s);
for i:=Length(s) downto 1 do
if not(s[i] in legal) then Delete(s,i,1);
Writeln('Результат: ',s);
end.