1)Материальные ресурсы – чаще всего сырье, ресурсы, материалы, которые человек обрабатывает для своих потребностей. Практически все материальные ресурсы одноразовые. Выплавив из руды металл – повторно использовать ту же руду не получится.
Информационные ресурсы – документы (книги , стать , публикации и т.д) , которые находятся в информационных системах (библиотеках, архивах, банках данных и т.п.). Другими словами это информация, хранящаяся на каком-то доступном носителе.
Основное отличие информационных ресурсов от материальных – это многократное их использование и копирование. Книга не уничтожится после прочтения и её можно скопировать. Таких действий совершить с материальными ресурсами не получится.
2) основные виды национальных информационных ресурсов:
· Библиотечные ресурсы
· Архивные ресурсы
· Научно-техническая информация
· Правовая информация
· Информация государственных (властных) структур
· Отраслевая информация
· Финансовая и экономическая информация
· Информация о природных ресурсах
· Информация предприятий и учреждений
3) Здесь каждый сам может ответить, но если ничего не приходит в голову,то каждый чуловек точно пользовался следующими видами:
· Библиотечными ресурсами – каждый хотя бы раз заходил в библиотеку за книгой.
· Научно-техническая информация – сюда же можно отнести инструкции для каких-либо приборов и их починки.
· Правовая информация – думаю конституцию и законы все хотя бы немного читали.
· Информация предприятий и учереждений .
Если что, часть программы не нужна для построения цепочки. Она просто иллюстрирует, что полученный результат верен.
}
var
sq : array[0..999] of array[0..9] of boolean;
co : array[0..999] of integer;
ar : array[1..10003] of 0..9;
i,j: integer;
x: integer;
t : boolean;
begin
for i := 0 to 999 do
begin
for j := 0 to 9 do
sq[i][j] := false;
co[i] := 0;
end;
for i := 1 to 3 do
ar[i] := 0;
i := 3;
t := true;
{write('000');}
while t do
begin
i := i + 1;
x := ar[i-3]*100 + ar[i-2]*10 + ar[i-1];
if co[x] >= 10 then t := false
else
begin
j := 1;
while sq[x][j] do
j := (j + 1) mod 10;
ar[i] := j;
sq[x][j] := true;
co[x] := co[x] + 1;
{write(j)}
end;
end;
{writeln;}
writeln('Length: ',i - 1);
{просто чтобы убедиться}
for i := 0 to 999 do
for j := 0 to 9 do
sq[i][j] := false;
t := true;
j := 0;
i := 1;
while (i <= 10000) and t do
begin
x := ar[i] * 100 + ar[i+1] * 10 + ar[i+2];
if sq[x][ar[i+3]] then t := false
else
begin
sq[x][ar[i+3]] := true;
j := j + 1;
end;
i := i + 1
end;
if t and (j = 10000) then
write('Confirmed')
end.