40 . 1) файл, содержащий 16 - цветный рисунок, имеет объём 400 байт. каков размер рисунка в пикселях ? 2) получено сообщение, информационный объём которого равен 128 битам. чему равен этот объём в байтах ?

2) в 1 байте 8 бит. значит
128:8=16
ответ: этот объём равен 16 байтам.

1) 2^n = 16. n = 4, Значит рисунок 4-битный = 0,5 байт
400 / 0,5 = 800 пикселей.
ответ: 800 пикселей
2) 128 бит = 128 / 8 = 16 байт
ответ: 16 байт

PYfy9pX4YibdfKzE8dnbSXaP3D5sbZenWQXx+TzottBxmrnKP4dS39zDFCHeytaxQuaxO6+SihcUhSqF6PmmxN3GxGIIAPLiSxjqjTtSHbvo7htEBwkC9DrKA9nK9xIOxPRcjpd6DAdMG0SkqPbK1+57wXgl2KsD43bDyI91iNHZGVEFuJjW2WjoZmDZOb/rVd7R9AqyWfNwqgLu5n0s8oZKpT55zvtPlOdDo6CM93h3C9G55Qj17fBXO/NNywpSzMGUqCxZha8Dm9QprL4Amawdo2pnCyu31Kn+Zny692acWR8k+IjeIoeL9HS7GGpxomAYoUcl2QOl2meKVWiovxtHmLKNooQK1Hc8yqvu293YHqgzQp3rHNgJxPJfiQnUmlYXGvOGZLk6vEUXIiesvdftDsCS/8Ae6YiLr8HWExGez9YXrworoX46BqS86+EFy3m8zwgu1fA9z61qLUP90KYw8KxlJJDWAThAVGrADHEsoHJ35+216/jwx5ruS3xgPOL83Vy5P1bL884jUiefVsuhprgR7C75lvy2ZCUYolQ=

Замечание. Так как количество вводимых чисел заранее не известно, то откроем бесконечный цикл со всегда верным условием True, но как только будет введено число 0, остановим цикл командой break.

Программа:

program z;
var k,s,x:integer;
begin
k:=0;              {начальное значение количества двузначных чисел}
s:=0;              {начальное значение суммы двузначных чисел}
while True do  {открываем бесконечный цикл}
begin
readln(x);        {вводим число х}
if x=0 then break;  {если введенное число равно 0, то остановить цикл}
if (x>9)and(x<100) then  {если число двузначное, т.е. от 10 до 99} 
    begin 
    k:=k+1;         {количество увеличиваем на 1}
    s:=s+x;         {увеличиваем предыдущее значение суммы на число х}
    end;
end;
if k=0 then writeln('NO')  {если двузначных чисел не было, то вывод NO}
   else writeln(s/k);          {иначе вывод ср.арифметического}
end.