Var s:string;
begin
write('Введите слово более 6 букв');Read(s);
write('символ предыдущий пятому ',s[4], ' символ следующий за пятым ', s[6]);<span>end.</span>
При использовании сигналов из 6 бит максимальное количество команд = 2^6 = 64 (используется формула N = 2^i). Из предложенных вариантов следует выбрать 55 команд.
Приход нового времени радикально изменил экономические и социальные стороны жизни общества. Многие ученые и практики пришли к выводу, что сегодня жизнедеятельность - это процесс, который может иметь место только тогда, когда человек располагает информацией, которая одновременно определяет и жизнеспособность общества. <span> <span>Эти тезисы воспринимаются как постулат, определенная данность, хотя, по мнению Ф.Уэбстер, «не удается установить, каким образом информация заняла центральное место в обществе, она настолько важна, что даже стала фактором создания общества нового типа».
Изменения самым прямым образом касаются и места человека в информационном мире. Человек меняется в соответствии с вектором информационно-технических характеристик общества. Однако это совсем не пассивное принятие новых условий производства и потребления. Человек выступает субъектом информационной реальности, далеко выходящей за информационно технические характеристики. Информатизация повседневной жизни и появление нового информационного поля человеческого бытия не проходит бесследно для жизненного мира человека. В электронном пространстве изменяются поведенческие стандарты и ценностные ориентации личности.
</span></span>
Const
nn=50; { максимально возможное кол-во строк }
mm=50; { максимально возможное кол-во столбцов }
var
a:array[1..nn,1..mm] of integer;
i,j,m,n,imax,t:integer;
begin
Write('Количество строк в массиве: '); Read(n);
Write('Количество столбцов в массиве: '); Read(m);
Writeln('Вводите элементы массива');
for i:=1 to n do
for j:=1 to m do Read(a[i,j]);
for j:=1 to m do begin
imax:=1;
for i:=2 to n do
if a[i,j]>a[imax,j] then imax:=i;
if i<>1 then begin
t:=a[1,j]; a[1,j]:=a[imax,j]; a[imax,j]:=t
end
end;
Writeln('Результат');
for i:=1 to n do begin
for j:=1 to m do Write(a[i,j]:3);
Writeln
end
end.
Ты можешь сделать это с помошью программы Paint