Цикл вида for i:=a to b do (Pascal) выполняется b-a+1 раз.
Цикл вида for x=a to b step h (Basic) выполняется FIX((b-a)/h)+1 раз, где FIX - операция получения целой части числа путем отбрасывания его дробной части.
Размер изображения = 256*128*4 бит это за 8 сек
<span>за одну сек это будет 256*128*4 / 8 = 16384 бит в секунду = 0,015625 Мегабит в секунду, как сейчас модно мерять в мегабитах</span>
program massiv;
var i,j,kol:longint;
a:array[1..6,1..8]of longint;
begin
for i:=1 to 6 do
for j:=1 to 8 do
read(a[i,j]);
for i:=1 to 6 do
for j:=1 to 8 do
if a[i,j]=0 then kol:=kol+1;
writeln(kol);
end.
Если считать, что скорость передачи данных в канале связи постоянна, то соотношение между временем передачи неупакованного и упакованного файла будет равно соотношению размеров передаваемых файлов.
Передача упакованного файла происходит за 20-10=10 секунд (мы вычли время на упаковку и распаковку). А передача неупакованного происходит за 1 минуту 20 с, т.е. за 1 х 60 + 20 = 80 секунд.
80 / 10 = 8. Неупакованный файл передается медленнее в 8 раз, следовательно, он в 8 раз больше, чем упакованный.
Тогда упакованный файл имеет размер 24 МБ / 8 = 3 МБ
<u><em>Ответ:</em></u> 3 МБ
Возводишь два числа, складываешь их и делишь на два - среднее арифметическое