Это по суди задача на поиск минимума функции на отрезке (-20;20). Функция - парабола. Аналитически можно найти ее вершину, х=1, f(1)=-64.
Группа файлов может храниться в массиве
PascalABC.NET 3.4
begin
// Если a и b целые, они также включаются в подсчет
var (a,b):=ReadReal2('Введите через пробел два числа:');
if a>b then Swap(a,b); // а - левая границв
Writeln('Целых чисел в интервале: ',Trunc(b)-Trunc(a)+1);
end.
Объем информации в письме народа x:
50 * log(2)16 = 50 * 4 = 200 бит
Объем информации в письме народа y:
40 * log(2)32 = 40 * 5 = 200 бит
Объемы информации в письмах равны