Средняя скорость передачи данных по некоторому каналу связи равно 30вбит/с.определите, сколько понадобится секунд, чтобы передать по этому каналу 80 страниц текста, каждая страница которого содержит в среднем 128 символов, а информационный вес одного символа равен 8 битам.

найдем объем текста: 80*128*8 бит.

объем разделить на скорость будет время.

все нужно в одинаковых единицах, поэтому 30 кбит/с = 1024*30 бит/с=30720бит/с. 80*128*8/30720 сек 

Uses crt; var a: array [1..5] of   integer;   i,m,n: integer;     f,g: text; begin clrscr;     write('m,n = '); read (m,n); randomize;     assign(f,'f.txt'); rewrite(f); //в фаил   for i: =1 to 5 do begin a[i]: =random(10);           write(f,a[i]: 2); end; close(f); assign(g,'g.txt'); rewrite(g); //в фаил for i: =1 to 5 do                     if ((a[i] mod m) = 0) and ((a[i] mod n) < > 0) then write(g,a[i]: 2);           close(g);   end.abc pascal

Базу не дает добавить 1. select перевозки.датаотгрузки, перевозки.номервагона, перевозки.кодгруза, перевозки.стоимость, перевозки.датавозвратавагона from перевозки where ([датаотгрузки]))> =1 and (month([датаотгрузки]))< 7) and ((year([датаотгрузки]))=year()) order by перевозки.датаотгрузки, перевозки.номервагона; 2. select distinctrow наименованиегруза.наименование, avg(перевозки.стоимость) as [avg-стоимость], year([перевозки]! [датаотгрузки]) as [год отгрузки] from наименованиегруза inner join перевозки on наименованиегруза.код = перевозки.кодгруза group by наименованиегруза.наименование, year([перевозки]! [датаотгрузки]), перевозки.кодгруза; 3. не знаю как срок считать 4. select distinctrow sum(перевозки.стоимость) as [общаястоимость перевозок за период] from перевозки having .датаотгрузки) between [: d1] and [: d2]));