// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var s:=ReadlnString('Вводите:');
Write('Кол-во слов: ',s.ToWords.Count)
end.
<u><em>Тестовое решение</em></u>
Вводите: А роза упала на лапу Азора
Кол-во слов: 6
Общее количество символов в рукописи:
2000*80*100=16 000 000 символов
Кол-во байт:
2 байта = 16 бит
16 000 000 * 2 = 32 000 000 байта
32 000 000 : 1000 : 1000 = 32 Мб
Иллюстрации:
80*5 = 400Мб
Объем рукописи: 32+400=432Мбайта
Флэш-карта 512 Мб < 432 Мб, поместится
Сортировка
..........................................
abcd
1) 110
2)1011
За порядок в самих ответах врспрашай у преподавателей, ибо дичь