Сколько секунд потребуется модему, передающему сообщения со скоростью 14400 бит/сек, чтобы передать цветное растровое изображение размером 1024 x 768 пикселей, при условии, что цвет каждого пикселя кодируется 2-мя байтами? Очень
Var ar:array[1..n] of integer; ar2:array[1..n] of integer; i,k:integer;
function prost(a:integer):boolean; var i:integer; b:boolean; begin b:=true; for i:=2 to a div 2 do if a mod i=0 then begin; b:=false; break; end; if a=1 then b:=false; prost:=b; end;
begin; randomize; k:=0; for i:=1 to n do begin; ar[i]:=random(101); write(ar[i]:4); end; writeln; for i:=1 to n do if prost(ar[i]) then begin; inc(k); ar2[k]:=ar[i]; write(ar2[k]:4); end; end.
Объявим нужные переменные Нам потребуется sum(сумма), average(ср. арифм), i(для цикла), n(кол-во чисел), x(введенное значение), count(счетчик нечетных) Присваиваем переменной n(кол-во чисел) нужное значение. Обнуляем summ и count Организовываем ввод чисел с клавиатуры через цикл от 0 до n Внутри цикла делаем проверку на четность, примерно так: if x mod 2 = 1 then (mod 2 обозначает остаток от деление на 2) А здесь увеличиваем переменную sum = sum + x И счетчик count = count + 1
Теперь после того как все итерации пройдены Переменная sum хранит значение суммы нечетных чисел. А переменную average надо разделить на count. average = average / count Так мы получим ср. арифметическое для всех нечетных чисел.
Решение.
Время t вычисляется по формуле t = Q / q, где Q — объем файла, q — cкорость передачи данных.
Один цвет занимает один пиксел, поэтому Q = 640 * 480 * 24 бит = 7 372 800 бит.
t = 7 372 800 бит / 14 400 бит/с = 512 с.
ответ: 512.