1. архивирование данных 2. отправка данных по электронной почте, так быстрее прикрепятся к письму, потому что меньше объём 3. многие программы читают данные только из архивов, а не из первоначальных папок
<span>Информация как таковая нематериальна, пока ее не нанести на носитель, однако
она играет важнейшую роль в жизни человека. Можно смело сказать информация -
главная ценность обладающий информацией обладает состоянием, смотря как он
его вложит и употребит. В силу своей специализации и наклонностей в данном
реферате я буду раскрывать тему в области Internet-а и прочих прокомпьютерных
технологий, однако не стоит забывать что информация как таковая одинакова
куда ьы и где бы ее не записали она всеравно остается информацией т.е.
данными.
1.1 О ценности информации
С появлением информационных технологий человеческое общество фактически
перешло в новую фазу развития. И связано это с тем, что достижения
компьютерной техники позволяют неограниченно и крайне дешево размножать такую
вещь, как информацию. Ранее, например, лет пятьсот назад, для получения новой
копии информации приходилось прилагать немало усилий: переписать книгу (а
перед этим еще подготовить листы для книги из пергамента), прочитать и
выучить текст, нарисовать копию картины, перед этим подготовив холст и
краски. Зачастую усилия на создание новой копии источника информации были
сравнимы с усилиями на создание самого этого источника, - например,
переписывание книг занимало года. И создавать новые копии могли лишь
специально подготовленные люди: ученые монахи-переписчики, художники, поэты. </span>
1. Посмотреть в корзине - может папку удалили
2. Воспользоваться поиском по всему диску, может ее переместили
В программе предполагается, что слова отделяются друг от друга одним пробелом, знаков препинания нет.
const m=3;
var s:string;
sl:array[1..m] of string=('ЗНАЧИТ', 'ВОТ', 'АВТОМОБИЛЬ');
n:array[1..m] of integer;
i:integer;
procedure pr(s1,s2:string; var k:integer);
var l,p:integer;
begin
s1:=' '+s1+' ';
l:=length(s2);
k:=0;
p:=pos(s2,s1);
while p>0 do
begin
if (s1[p-1]=' ')and(s1[p+l]=' ') then k:=k+1;
delete(s1,1,p+l);
p:=pos(s2,s1);
end;
end;
begin
writeln('Введите текст:');
readln(s);
for i:=1 to m do
begin
pr(s,sl[i],n[i]);
writeln(sl[i],' - ',n[i]);
end;
end.
Пример (слов меньше 40):
Введите текст:
ЗНАЧИТ ТАК ВОТ АВТОМОБИЛЬ РАЗ ВОТ АВТОМОБИЛЬ ДВА ВОТ АВТОМОБИЛЬ ТРИ
ЗНАЧИТ - 1
ВОТ - 3
АВТОМОБИЛЬ - 3