• номер 1: запишите в порядке возрастания А: 85 бит Б: 257 байт В: 11 байт Г: 1 Кбайт • номер 2: Скорость передачи ин-фы (V)- 256000м/с, время (t)- 64 сек. Найдете информационный объем сообщения (I) в Кбайтах
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) const m = 10;
var t: array[1..m] of integer; i, n, nm, sm: integer;
begin //Заполняем массив сл.числами и подсчитываем //количество элементов и среднее арифметическое //согласно условию задачи for i := 1 to m do begin t[i] := random(-20, 20);write(t[i]:4); if (i > 1) and (i <= m) then if t[i] > t[i - 1] then n := n + 1 else if t[i] < t[i - 1] then begin sm := sm + t[i];nm := nm + 1; end; end; writeln; writeln('число элементов больших предыдущего = ', n); writeln('ср. арифметическое элементов меньших предыдущего = ', sm / nm);
And (энд) - И end (энд) - конец nil (нил) - нуль set (сет) - множество array (эрей) - массив file (файл) - файл not (нот) - не then (зен) - то begin (бегин) - начало for (фo) - для of (оф) - из to (ту) - увеличивая до case (кейс) - вариант while (вайл) - пока downto (даунту)- уменьшая до record (рикод) - запись with (вис) - с function (фанкшн)- функция or (ор) - или type (тайп) - тип const (конст) - константа go to (гоу ту)- переход на packed (пэкт) - упаковать until (антил) - до div (див) - разделить if (иф) - если procedure() - процедура var (вар) - переменная do (ду) - выполнить in (ин) - в program (програм) - программа else (элс) - иначе mod (мод) - модуль repeat (рипит) - повторять
1) А,В,Б,Г
2) V = I / t
V=256000 м/с
t=64сек
I=?
I= V/t = 256000/64=4000КБ
не гарантирую,что 2 задание правильное)