Задача в Pascal.В цикле for посчитать произведение нечетных элементов массива.
Число для перемножения на элементы массива - 21.
Диапазон от 1 до n.

var

 a,c1,c2,s1,s2:integer;

begin

 readln(a);

 if a=0 then  

   begin

     writeln('Error');

     exit;

   end;

 s2:=-30000; c2:=30000;

 s1:=-30000; c1:=30000;

 repeat

   if (a>s1) or (a>s2) then

     if s1>s2 then

       s2:=a  

     else

       s1:=a;

   if (a<c1) or (a<c2) then

     if c1>c2 then

       c1:=a

     else

       c2:=a;

   readln(a);

 until a=0;

 writeln('max: ',s1+s2);

 writeln('min: ',c1+c2);

end.

Если моё решение вам, пометьте его лучшим !

Один символ кодируется в 8 битах, значит умножаем 8 бит на количество символов в строке - 48*8= получаем 384 бит, значит в одной строке 384 бит. Теперь чтоб узнать количество бит на странице, просто умножаем количество бит одной строки на количество строк в одной странице - 384*40= получаем 15360 бит , получается на одной странице 15360 бит. Дальше чтоб узнать сколько бит на этих восьми страницах умножаем количество бит в одной странице на 8, и получаем количество бит полного рассказа 15360*8=122880 бит.

чтоб получить ответ из предложенных вариантов переводом биты в байты а потом и в килобайт.
122880 разделить на 8 получаем 15360 байт.
15360 разделяем на 1024 и получаем 15 Кбайт.