1)Материальные ресурсы – чаще всего сырье, ресурсы, материалы, которые человек обрабатывает для своих потребностей. Практически все материальные ресурсы одноразовые. Выплавив из руды металл – повторно использовать ту же руду не получится.
Информационные ресурсы – документы (книги , стать , публикации и т.д) , которые находятся в информационных системах (библиотеках, архивах, банках данных и т.п.). Другими словами это информация, хранящаяся на каком-то доступном носителе.
Основное отличие информационных ресурсов от материальных – это многократное их использование и копирование. Книга не уничтожится после прочтения и её можно скопировать. Таких действий совершить с материальными ресурсами не получится.
2) основные виды национальных информационных ресурсов:
· Библиотечные ресурсы
· Архивные ресурсы
· Научно-техническая информация
· Правовая информация
· Информация государственных (властных) структур
· Отраслевая информация
· Финансовая и экономическая информация
· Информация о природных ресурсах
· Информация предприятий и учреждений
3) Здесь каждый сам может ответить, но если ничего не приходит в голову,то каждый чуловек точно пользовался следующими видами:
· Библиотечными ресурсами – каждый хотя бы раз заходил в библиотеку за книгой.
· Научно-техническая информация – сюда же можно отнести инструкции для каких-либо приборов и их починки.
· Правовая информация – думаю конституцию и законы все хотя бы немного читали.
· Информация предприятий и учереждений .
Pascal
var
s : string = 'Вчера лиса Алиса пришла к коту Базилио и поинтересовалась его здоровьем.';
i : integer;
s1, sR : string;
begin
s:=s+' ';
i :=1;
sR :='';
s1:='';
while i <= length(s) do begin
if (s[i] = ' ') then begin
if s1[1] <> UpperCase(s1[1]) then
sR := sr + s1 + ' ';
s1:=''
end
else
s1:=s1 + s[i];
inc(i);
end;
delete(sR, length(sR), 1);
print(sR);
end.
А вот на PascalABC.Net. заметно короче будет
begin
var s := 'Вчера лиса Алиса пришла к коту Базилио и поинтересовалась его здоровьем.';
var a := s.ToWords.Where(v -> (v.First <> v.First.ToUpper)).JoinIntoString();
println(a);
end.
for (size_t i = 0; i < n; ++i) if (matrix[i][i] >= 0) cout << matrix[i][i] << '\,n';