===== PascalABC.NET =====
begin
var D := new Dictionary<char, integer>; // словарь
var s := ReadlnString('Введите текст:') // ввести строку текста
.ToLower // перекодировать буквы к нижнему регистру
.Where(c -> c.IsLetter); // отобрать только буквы
foreach var c in s do // повторить для каждого символа в строке
if D.ContainsKey(c) then // если символ уже встречался
D[c] += 1 // увеличить его счетчик на 1
else // в противном случае
D.Add(c, 1); // добавить символ в словарь со счетчиком 1
D.Where(p -> p.Value > 1) // отобрать элементы словаря со счетчиком > 1
.Select(p -> p.Key) // выбрать сами символы
.OrderBy(p -> p) // отсортировать по алфавиту
.Println(' ') // вывести через пробел в строку
end.
1. 754974
2. Не хватает исходных данных для ответа
Объяснение:
1. В ASCII каждый символ кодируется одним байтом. Половина дискеты - это 1.44 / 2 = 0.72 Мбайт
1 Мбайт = 1024² байт, поэтому
0.72 Мбайт = 0.72 × 1024² ≈ 754974 байта. Столько же и символов.
2. При смене кодировки с однобайтной CР-1251 на двухбайтную объем файлов увеличивается вдвое. Остались без изменения два файла объемом 4 Мбайт. Объем трех файлов удвоился. В условии нет данных о размере измененных файлов и можно лишь говорить, что объем папки увеличился ровно на суммарный объем этих трех файлов. Например, если предположить, что все файлы имели равный объем, то каждый файл занимал 4 Мбайт / 2 = 2 Мбайт и в таком случае объем папки увеличился на 2 × 3 = 6 Мбайт
