Многостраничный документ состоит из страниц, полностью заполненных текстом, причем на каждой странице ровно 3072 символов. Документ сохранили с использованием двухбайтной кодировки Unicode так, что в файле не хранится никаких данных, кроме кодов символов. Этот документ отсканировали таким образом, что каждая страница стала изображением размером 3584 на 2432 пикселей. Сканированные страницы сохранили с использованием восьмибитной цветовой модели GrayScale таким образом, что в файле с отсканированными страницами не хранится никаких данных, кроме кодов цветов пикселей. Выяснилось, что файл с отсканированными страницами на 68048 КБайт больше, чем исходный документ. Сколько страниц в документе? В ответе укажите целое число.
Примечание. 1 КБайт=1024 байта.

решение на языке pascal

program pr;

var n,a,b,c, sum: integer;

begin

readln (n);

a: =n div 100;

b: =n mod 100 div 10

c: =n mod 10

sum: =a+b+c;

if   sum mod 2 = 0 then writeln ('сумма цифр четная') else writeln('сумма цифр четная');

readln;

end.

100010,011101=42,35   (вос. сис.)

10010,011101=22,1d   (шест. с.)

  111 111 111 000 001=77701(в.с)

  0111 1111 1100 0001(добавляем 0)=7fc1 (ш.с.)

0,000110101=0,065(в.с) (доб. 00)

0,0110101=0,35(ш.с.) 

0,11 100 110 101=0,3465(в.с.)

0,111 0011 0101=0,735(ш.с.) 

вот проверила, так работает. нормально?

program maxmin; var    a, b, c: integer;     max, min: integer; beginwriteln('введите три числа.'); read(a,b,c); {вводи числа через пробел}max: =a; if(b> max) then max: =b; if(c> max) then max: =c; min: =a; if(b< min) then min: =b; if(c< min) then min: =c; writeln('разность наибольшего и наименьшего чисел равна ',max-min); end.

  =)

    пусть х - время в секундах.

    тогда

      (1/3 *   60/8 мбайт/с * x) с - время   за треть времени)

      (2/3 * 90/8 мбайт/с * x) с - время за две третти времени

      тогда уравнение получается

      1/3 *   60/8   * x   +   2/3 * 90/8 * x = 9000

      2,5x +   7,5x = 9000

          10x = 9000

          x = 900

        получается 900 секунд или 900/60 = 15 минут)