Сколько битов содержит сообщение? В видеоконференции участвует 128 человек. Один из них показывает презентацию остальным. Сколько битов содержит сообщение о том, кто Именно показывает презентацию? Считайте, что каждое возможное сообщение (имя и фамилия участника) закодировано одинаковым Минимально возможным количеством битов. Используем формулу 21 = N: 2 || ответ: бит
1)program Mas;uses crt; const nmax=100; var x:array[1..nmax]of Integer; i,n,b,bcol,proz:Integer; begin proz:=1; repeat begin ClrScr; Write('Введите размер одномерного массива(n),n='); Read(n); end; until n<=nmax; Writeln('Введите значения элементов массива:'); for i:=1 to n do Read(x[i]); Writeln('Введенный массив:'); for i:=1 to n do Write(x[i],' '); Writeln; Write('Введите число B:'); Read(b); for i:=1 to n do if x[i]<b then inc(bcol); Writeln('Количество элементов меньших B:',bcol); for i:=1 to n do proz:=proz*x[i]; Writeln('Произведение всех элементов массива:',proz); Readln; end. 2)program p1;var x:array[1..100] of integer; max,i,n:integer; begin write('Введите количество элементов='); readln(n); writeln('Исходный массив'); randomize; for i:=1 to n do begin x[i]:=random(101)-50; write(x[i]:3); if (x[i]>=max) then max:=x[i]; end; writeln; writeln('Новый массив'); for i:=1 to n do begin if (abs(x[i])=max) and (x[i]<>max) then x[i]:=1; if (x[i]<>max) and (abs(x[i])<>max) then x[i]:=0; write(x[i]:3); end; readln end. 3)var a: array[1..15] of integer; i: integer; av: integer; begin randomize; for i := 1 to 15 do a[i] := random(40) + 10; writeln('Исходный массив: '); for i := 1 to 15 do write(a[i], ' '); writeln; av := 1; for i := 1 to 15 do if a[i] mod 7 = 0 then av := av * a[i]; if av = 1 then writeln('Массив не содержит элементов , которые кратны 7!') else writeln('Произведение равно: ', av); end. 4)uses crt;const n=31; var a:array[1..n] of integer; i:byte; max:integer; sr:real; begin clrscr; writeln('Vvedite temperaturu po dnyam:'); sr:=0; for i:=1 to n do begin write(i,' maya: '); readln(a[i]); sr:=sr+a[i]/31; end; clrscr; writeln('Massiv temperatur:'); max:=a[1]; for i:=1 to n do begin write(a[i],' '); if a[i]>max then max:=a[i]; end; writeln; writeln('Samye teplye dni s temperaturoj ',max,' grad'); for i:=1 to n do if a[i]=max then writeln(i,' maya'); writeln; write('Srednya temperatura=',sr:0:1,' grad'); readln end. 5)program PROG5_2;const N = 10; var a : array [1..N] of integer; i : integer; imin, imax : integer; d, c, s : integer; begin {Заполнение массива а случайными числами} randomize; for i:=1 to N do a[i]:=random(100); {Вывод массива а на экран} writeln('Исходный массив:'); for i:=1 to N do write(a[i]:6); writeln; {Нахождение индексов наибольшего и наименьшего эемаентов массива} imin:=1; {Индекс наименьшего элемента} imax:=1; {Индекс наибольшего элемента} for i:=2 to N do begin if a[i] < a[imin] then imin :=i; if a[i] > a[imax] then imax := i; end; {Вывод ответа} writeln('Наименьший элемент a[',imin,']=',a[imin]); writeln('Наибольший элемент a[',imax,']=',a[imax]); {Подсчет количества и суммы чисел между минимальным и максимальным значениями} c:=0; {Количество} s:=0; {Сумма} for i :=imin to imax do
В самых общих чертах: материальные и информационные технологии объединяет то, что для их создания необходим творец, человек, или человеко-машинный комплекс, создающий новый объект материального или информационного мира. При этом количество материальной или информационной продукции зависит от количества и производительности этих самых творцов. Главное, что отличает материальные технологии от информационных, это последующего распространения продукта среди потребителей. Для материальных технологий важно отсутствие возможности мгновенной репликации. Например, когда Вы имеете 100 килограммов зерна, или 100 автомобилей, то если Вы отдали потребителю 10, у Вас остается только 90 единиц материальной продукции. С информацией наоборот, если у вас есть 100 фильмов, и Вы отдали другу 10, у Вас не только не уменьшилось количество фильмов, а, наоборот, в случае аварии Вашего носителя информации, только те 10 фильмов, которыми Вы поделились и сможете восстановить. Таким образом, отчуждение информации только увеличивает ее количество. Это коренным образом изменит жизнь людей в ближайшее десятилетие. Мы переходим от общества товарно-денежных отношений в информационное общество.
5.