Файл размером 9 мбайт передается через некоторое соединение за 240 секунд. определите размер файла (в мбайт) который можно передать через это же соединение за 80 секунд. в ответе укажите одно число-размер файла в мбайт

1) хмм. изображение — чисто равовая битовая карта? и скорее всего 256 (а не 265) цветов-то. в таком случае каждый пиксель битмапа можно закодировать одним байтом. в 1 кибибайте (имеется в виду же 1024 байт, так? ) будет 1024 точки.

2) чёрно-белое (два цвета, не путать с грейскейлом/монохромным) можно закодировать, скажем, по 1 биту на пиксель (0 - не светится, чёрный, 1 - светится, белый, или наоборот). если в "цветном" 16-цветном было log_2 16 = 4 бита на пиксель, то следовательно можно выходной размер битовой карты считать (довольно грубо) занимающим в 4 раза меньше байт.

3) (2^10) * (2^8) в 786 киб => 786 / (2^8) = 3,0703. ну то есть по 3 байта на пиксель. это 2^(8*3) = 2^24 цветов. true color.

4) информационный объем одной точки 16-цветного растрового изображения уже исследовался выше: log_2 16 = 4 бита на пиксель (пол байта).

1)

uses crt; var x,y,pr: integer; beginread(y,x); pr: =1; repeatpr: =pr*y; x: =x-1; until x=0; write(pr); end.

2)

uses crt; var a: array[1..10] of integer; pr,i,k: integer; beginfor i: =1 to 10 do read(a[i]); clrscr; pr: =1; for i: =1 to 10 do begin if a[i]< 0 then k: =k+1; if a[i]> 0 then pr: =pr*a[i]; end; writeln('исходный массив: '); for i: =1 to 10 do write(a[i],' '); writeln; if k< > 0 then writeln('отрицательных элементов: ',k) else writeln('отрицательных элементов нет'); write('произведение положительных элементов равно: ',pr); end.