Uses crt;var i,s:integer; a:array [1..100] of integer;
beginfor i:=1 to 4 do begin writeln ('vvedite massiv');readln(a[i]);end;for i:=1 to 4 do begin s:=s+a[i];end;writeln(s,' ');end.
Подсистема - колесо, рама , спицы, и т.д.
<span>Надсистема - дорога, гараж, улица, мир....</span>
Ответ:
1) 375 байт * 8 = 3000 бит - объем этого сообщения
2) 3000 бит / 500 = 6 бит информационный вес каждого символа в этом сообщении.
3) N = 2^i
N = 2^6 = 64 символа в этом алфавите (мощность этого алфавита)
Подробнее - на Znanija.com - znanija.com/task/2943377#readmore
Объяснение:
"Паскалей" различных много. Массивы тоже бывают разные. В вопросе ничего не детализировано, поэтому речь пойдет об одномерных массивах.
1. Турбо (Борланд) Паскаль. Массив - статический, в нем последний элемент не нужно определять, поскольку его индекс известен по описанию массива.
2. Borland Delphi, Free Pascal. Статические массивы - все как и в Турбо Паскаль. Но есть и динамические массивы, индексируемые от нуля, поэтому индекс последнего элемента в них равен количеству элементов минус единица. Можно пользоваться функцией Length(a), возвращающей текущее количество элементов в массиве.
3. PascalABC.NET 3.3. Действительно все, что написано выше. И добавочно можно написать a.Length вместо Length(a).
<span>Когда мы учимся в школе мы открываем для себе новые знания знания.Мы находим много нового,узнаем множество нового. Именно школа позволяет открыть основы скрытых тайн науки и человека.</span>