Сканируется цветное изображение размером 17,78*17,78 дюйм. разрешающая способность сканера-1200*1200 dpi, глубина цвета- 16 бита. какой информационный объём будет иметь полученный графический файл? ответ в бит

1) количество точек -100 

2) так как всего 2 цвета черный и белый. то глубина цвета равна 1 ( 21   =2) 

3) объем видеопамяти равен 100*1=100бит 

во втором действии 2 в степени 1, а не 21. 

1)var s,i,n,a: integer;

begin

  a: =1;

  s: =1;

  readln(n);

  for i: =1 to n do

    begin

      s: =s*sqr(a);

      a: =a+1;

    end;

  writeln(s);

end.

2)var a,i: integer;

          x: real;

begin

  a: =0;

  readln(x);

  repeat

  a: =a+2;

  if power(a,3)> x then writeln(a);

  until power(a,3)> x;

end.

program xxx; var    b, c : array [1..15] of integer;     i, s, a : integer;

begin//подключаем датчик случайных чисел    randomize; //цикл заполняющий массивы     for i: =1 to 15 do          begin                b[i]: =random(100);                 c[i]: =(b[i] + i);             end; //выводим на экран 1ый массивwrite('первый массив: '); for i: =1 to 15 do    begin        write(b[i],'  ')    end; writeln(''); //выводим на экран 2ой массивwrite('второй массив: '); for i: =1 to 15 do    begin          write(c[i],' ')    end; writeln('');

//вводим число аwrite('введите число а=');

readln(a);

//формируем 3-ий массив и находим сумму эоементов меньших а

s: =0; for i: =1 to 15 do    if c[i]< a then begin c[i]: =c[i]* 2; s: =s+c[i]; end;

//выводим на экран 3-ий массивwrite('третий массив: '); for i: =1 to 15 do    begin          write(c[i],' ')    end; writeln('');

writeln('сумма элементов меньших а=', s);

readlnend.