Если я нигде не ошибаюсь ( в этом я сильно но уверен ) то ответ должен получится 377/76x
Var a,b,sum:integer;
begin
readln(a,b);
for b:=b+1 to a do
sum:=sum+b;
writeln(sum);
<span>end.</span>
ABCDE - 17
А вообще такие задачи в уме решаются :\
1. Сперва нужно страницы перевести в строки: 32*40 = 1280 (строк)
2. Нам известно что в одной строке 48 символом, умножаем что бы узнать общее кол-во символов : 1280*48 = 61440 (символов)
3. Теперь символы нужно умножить на на биты: 61400*8 = 491520 (бит)
4. Мы получили ответ 491520 бит, нам нужно его перевести в байты, 491520:1024 = 480 байт (делим на 1024 потому что 1 байт = 1024 бит)
Конечный ответ 480 байт
Вторую задачу аналогично можно решить.