Найти информационный объем изображения размером 157х99 пикселей, если каждый пиксель кодируется 4 битами информации. ответ дать в битах !

1) 157 х 99 = 15543 (пикселей) - всего 2) 15543 х 4 = 62172 (бита)

Static void writearray(ienumerable< int> a, bool one_line = true)       {             console.writeline("вывод массива: ");             foreach (var item in a)             {                   console.write("{0} ", item);                   if (! one_line) { console.writeline(); }             }             console.writeline();       }

1. программа для создания файла // pascalabc.net 3.1, сборка 1239 от 08.05.2016 type   tbook=record       author: string[30];       naim: string[50];       pages: integer;       godizd: integer       end; begin   var f: file of tbook;   rewrite(f,'books.dat');   writeln('ввод данных по книгам');   var s1,s2: string;   var i1,i2: integer;   var book: tbook;   repeat       s1: =readlnstring('автор или * для окончания ввода: ');       if s1< > '*' then begin           s2: =readlnstring('название книги: ');           i1: =readlninteger('количество страниц: ');           i2: =readlninteger('год издания: ');           (book.author,book.naim,book.pages,book.godizd): =(s1,s2,i1,i2);           write(f,book)           end   until s1='*';   writeln('*** ввод завершен ***');   f.close end. тестовое решение ввод данных по книгам автор или * для окончания ввода: жюль верн название книги: 80 тысяч километров под водой количество страниц: 573 год издания: 1951 автор или * для окончания ввода: сергей лукьяненко название книги: дозор количество страниц: 934 год издания: 2004 автор или * для окончания ввода: жюль верн название книги: властелин мира количество страниц: 104 год издания: 2011 автор или * для окончания ввода: * *** ввод завершен *** 2. программа для выборки // pascalabc.net 3.1, сборка 1239 от 08.05.2016 type   tbook=record       author: string[30];       naim: string[50];       pages: integer;       godizd: integer       end; begin   var f: file of tbook;   reset(f,'books.dat');   var s: =readlnstring('автор книги: ');   var y: =readinteger('год издания, не ранее: ');   var k: =0;   var book: tbook;   while not f.eof do begin       read(f,book);       if (book.author=s) and (book.godizd> =y) then begin           writeln(book);           inc(k)           end;   end;   if k=0 then writeln('таких книг не найдено');   f.close end. тестовое решение автор книги: жюль верн год издания, не ранее: 2005 (жюль верн,властелин мира,104,2011)