Как вы себе представляете информационное общество?

Признаки информационного общества осознание обществом приоритетности информации перед другим продуктом деятельности человека. первоосновой всех направлений деятельности человека (, производственной, политической, образовательной, научной, творческой, культурной и т.п.) является информация. информация же является продуктом деятельности современного человека. информация в чистом виде (сама по себе) является предметом купли – продажи. равные возможности в доступе к информации всех слоев населения. безопасность информационного общества, информации. защита интеллектуальной собственности. взаимодействие всех структур государства и государств между собой на основе икт. информационным обществом со стороны государства, общественных организаций. кроме положительных моментов прогнозируются и опасные тенденции: все большее влияние на общество средств массовой информации; информационные технологиимогут разрушить частную жизнь людей и организаций; существует проблема отбора качественной и достоверной информации; многим людям будет трудно адаптироваться к среде информационного общества. существует опасность разрыва между "информационной элитой" (людьми, занимающимися разработкой информационных технологий) и потребителями.

. в древней индии писали на камне и листьях пальмы. листья пальмы высушивали и нарезали длинными, узкими пластинами. надпись наносили тушью. если для записи использовалось более одного листа, то все написанные листы соединяли бечевкой, концы которой прикреплялись к хорошо обструганным деревянным дощечкам. пальмовые листы находились между двумя дощечками, как книга в переплете. иногда поверхность дощечек покрывали тонкими серебряными пластинами с узорной резьбой

 

источник информации иайл.ру

1

a)

program pr;

var

s: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

writeln('введите заданный символ');

readln (c);

for i: =1 to length(s) do if s[i]=c then writeln ('в строке найден заданный символ');

readln;

end.

б)

program pr;

var

s,n: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

writeln(n);

readln;

end.

в)

program pr;

var

s,n,f: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

f: =copy(s,i+1,length(s)-i+1);

writeln(n);

writeln(f);

readln;

end.

program pr;

var s: string;

begin

s: ='касіу ясь канюшыну';

delete (s,7,3);

insert ('ясь',s,7);

writeln (s);

readln;

end.

3

а)

program pr;

var

s: string;

begin

s: ='реки горы и болота';

delete (s,6,5); {удаляем включая пробел}

writeln (s);

readln;

end.

б)

program pr;

var

s: string;

begin

s: ='реки горы и болота';

delete(s,13,6);

s: =s+'озера';

writeln (s);

readln;

end.